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SUA LIGACAO 
COM O MUNDO 



CONEXAO COM MUNDO 



COMPRAS EM CASA 



TELETEXTO E VIDEOTEXTO 



LIGACAO EM REDE 



TIPOS DE MODEM 



Se voce deseja exploraf plenament6 o 
potencial de seu micro, faca-o 
comunicaf-se com outros computadores, 
utilizando o modem como elo 
de ligapao entre ele e o mundo. 



Pos comput adores pode-se dizer que, 
como homens, nenhum deles e uma 
ilha... Pois ale mesmo os mais modes- 
[os dentre eles podem ser coneetados ao 
sistema lelefonico e, em conseqiiencia. 
a alguns dos mais poderosos "cerebros 
eletronicos" e bancos de dados da Ter- 
ra. Ligado desse modo, um micro nos 
proporciona acesso a quaniidades Jnes- 
gotaveis de informacao. 

Um compulador, urn dispositive de 
ligaqao chamado modem, um telefone 
e um software muito simples: eis ludo 
o que t precise para realizar esse mila- 
gre da informdtica. 

A comunicacao entre computadores 
se d^ de irgs modos b^icos: por meio 
de linhas lelefonicas ou de ondas de ri- 
dio (on ambos, em alguns casos); aira- 
ves da co-participacao no mesmo siste- 
ma de armazenamento de informacao 
(que. na pratica, significa co-participa- 
fao na mesma unidade de disco); ou 
com a ajuda de um simples cabo que co- 
necte dois aparelhos — neste caso, ca- 
da um deles pode compartilhar o pro- 
cessador e a memdria do outrq. 



ALO.ALa,. MUNDO 



Dessas opijoes, a primeira e sem dii- 
vida a raais excitanle, pois representa 
um passo a frenl« para quern e eniusias- 
ta dos computadores pessoais, 

Atualmenle, ja e posslvel obter, a 
pre?os razoSveis, equipamento e softwa- 
re que farao com que o seu aparelho se- 
ja capaz de conversar com outro em 
qualquer lugar do globo. usando as mes- 
mas linhas empregadas peios sistemas de 
telecom unicafoes. 

O sistema telefonico proporciona 
acesso a uma imensa faixa de facilida- 
des, como o intercambio de software e 
a amplia?ao dos servigos de nolicias e 
informa^oes, que hoje custam muito ca- 



ro, quando realizados pelos meios con- 
vencionais (tele-trabalho). 

Com um compulador e um modem, 
voce pode consullar listas de compras, 
examinar ilustrai;6es de produtos para 
venda, comparar pregos, pagar contas 
instantaneamentc, verificar de modo au- 
tom^tico como andam as suas finanf as, 
e fazer quase tudo o que quiser. sem sair 
de casa. 

Para trabalhar juntos, uma secrela- 
ria e seu chefe, por exemplo, nao preci- 
sam estar na mesma sala, no mesmo edi- 
ficio ou na mesma cidade. Basta para is- 
so que usem formas de comunicafao por 
compulador. 

Assim, tendci esboijado uma car!a no 
micro, o chefe pode enviar todo o ras- 
cunho, com erros ortograficos e de gra- 
mAtica, ti sua secretaria, que o corrigira, 
o formal ara de modo a lorna-lo apre- 
.sentavel e o enviara. 



BOLETINS 



Diversos sistemas telemetricos, como 
o videotexto e o Cirandao, permitem 



que o usuario estabeleca a sua propria 
"caixa postal". Assim, se ele quiser en- 
trar em contato com outro usuario. po- 
de "escrever" uma carta no processa- 
dor de lexlos do micro, e guarda-la na 
"caixa postal" do desiinatdrto, Este ul- 
timo, por sua vez, poderi copia-ia em 
seu microcomputador, a fim de le-la 
mais tarde. Cerlamente, tanto quern en- 
via como quern recebe a carta deve ter 
um computador ligado a rede. Um Cor- 
reio Eletronico desse lipo conslitui uma 
poderosa ferramenta, e represenia um 
grande progresso em relagao aos bo- 
letins. 



Muitas das apllcafoes mais interes- 
santes para a comunicacao entre com- 
putadores envoi vem pequenos aparelhos 
com acesso a um grande "cerebro ele- 
tronico". Entretanto, outras combina- 
?oes sao possiVeis. 

Uma vida solit^ia? Talvez, mas nao 
necessariamenlc. Tambem e possivel 
contatar outras pessoas com os mesmos 
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interessses em coniputadores. Em algiins 
casos, independentemenle do iugar do 
mundo em que estejam essas pessoas, o 
cusio do contaio com elas pode ser tao 
pequeno quanto uma simples ligapao te- 
lefonica local. Voce pode chamar aqui- 
lo que i conhecido por boletim (bulle- 
tin boards, em ingies, comumente tra- 
duzido para "quadro de avisos") para 
ler mensagens enviadas por oulras pes- 
soas e lambem deixar suas proprias 
mensagens. Existem boletins programa- 
dos para vdrios prop6sitos. 

Se voc2 decidisse abandonar o con- 
forto de seu lar e avenlurar-se a sair pelo 
mundo afora, poderia deixar registrado 
quase tudo no computador — despesas 
com lixis e hol^is, dias de fdrias, entra- 
das para teatro, passagens de aviao, e 
muito mais. 

Mesmo que surjam problemas nas li- 
ga^oes de computadores (causados so- 
breludo por falhas no estabelecimento 
de padroes comuns), quase sempre se d^ 
um jeito; muitos desses irabalhos pio- 
neiros sao realizados por amadores e es- 
tudantes eniusiasmados e seus professo- 
res em universidadcs e outros estabele- 
cimentos de ensino superior. 

O crescimento do interesse em comu- 
nicafoes cntre computadores e as indi- 
canoes de que esta sera a drea de explo- 
ra^So que mais se desenvolvcrd no fu- 



ture refleiem-se claramente no fato de 
que mais e mais boletins compuiadori- 
zados eslao sendo criados em todo o 
mundo (inclusive no Brasil). 

Embora possam ser feitos pelo pr6- 
prio usudrio, os boletins sao, em sua 
maioria, montados por empresas, geral- 
mente especializadas no ramo da eletro- 
nica. Alguns desses "boletins empresa- 
riais" reservam um espa^:o para os usud- 
rios comuns, enquanto outros ocupam 
a drea do quadro apenas para publicar 
seus servigos e beneficios. Uitimamen- 
te, por^m, o setor de maior crescimen- 
to tem sido o dos boletins criados por 
amadores e universitArios. 



COMPRAS EM CASA 



Ainda h^ quern imagine que essa apli- 
cacao da comunicai^ao entre computa- 
dores pertence ao domfnio da ficgao 
cientlfica, e que seri necessirio esperar 
muitos anos, at^ que seja possivel reali- 
zar, por exempio, compras por interm^- 



dio de um terminal de video em i;asa. 
Enlretanto, ludo isso ja e possivel atual- 
mente. Nos pai'ses mais desenvolvidos, 
muitas pessoas ulilizam esse sistema, e 
estao tao familiarizadas com ele, que as 
telecompras ja fazem parte de sua roli- 
na diaria. No Brasil, o sistema videotex- 
to oferece essa possibilidade em vdrias 
capitals. 

Nos lugares em que isso ja acontece. 
voce pode usar o seu computador para 
ter accsso instantaneo a informa?6es so- 
bre produtos, ofertas especiais e pre9os 
em um grande mimero de lojas. Ou po- 
de pedir servigos e pagd-los com a sim- 
ples digitacao de aJgumas tecias. O "tra- 
balho" e feito por um computador cen- 
tral. Ele coniem loda a informagao e 
tambem faz a transferSncia elelronica de 
dinheiro da conta do cliente no banco 
para a conta da loja. 



TELETEXTO £ VIDEOTEXTO 



Igualmente crescente e o mimero de 
servifos de teletexto e videotexto. aos 
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quais i possivel conectar ate mesmo pe- 
quenos micros domesticos. O servi?o de 
teletexio — que ainda n3o existe no Bra- 
sil — i o que sai mais barato para o 
usudrio. pois nSo ^ interativo. Desenvol- 
vido na Inglaierra, esse servi^o segue 
dois padroes adoiados em v^rios pai'ses; 
o ORACLE (exeeutado pelas compa- 
nhias de televisao independentes) e o 
CEEFAX (cxecuiado pela BBC). Com 
o teletexio, o usudrio uliliza urn televi- 
sor adaptado para receber em casa mi- 
Ihares de piginas de informacao (textos 
e figuras, per exempio), que sao mos- 
tradas no video. Nao e necess^rio o le- 
lefone, pois as paginas sao enviadas por 
radiodifusao, no intervalo enire uma te- 
la e outra da programa^ao normal de 
TV. 

Enviar e carregar programas sao duas 
fun^es de grande inieresse em comu- 
nica^ao de computadores; elas podem 




ser desempenhadas tanto no videotexto 
quanto no leletexto. Programas podem 
ser transmitidos tamb^m por TV ou por 
ridio. Por^m, os programas do leletex- 
to tSm uma vantagem: eles podem ser 
carregados diretamente no micro, en- 
quanto os programas obtidos por meio 
do rddio precisam ser primeiramenle 
gravados em fita para, s6 entao, serem 
carregados pelo modo normal. 

A linica desvantagem do lelelexto 6 
que, como ele usa sinais de radiodifu- 
sao, a comunicagSo se dd apenas em um 
sentido. Ja o videotexlo (que emprega 
uma linha telef6nic3 para estabelecer co- 
muntcacao) t bidirecional. Isto signifi- 
ca que a sua mdquina pode "conversar" 
com o computador central do videotex- 
to, Na realidade, a rede de videotexto 
pode incluir varies computadores regio- 
nais interligados, todos oferecendo ba- 
sicamente o mesmo servigo. Essa mul- 
tiplicidade de computadores ajuda a 
manter baixo o pre^o do sistema para 
o usuirio, que ji paga laxas altas s6 pa- 
ra usar o teiefone. Quanto mais perto 
o computador estiver do assmante, mais 
baraia seri a ligacao. 

Outro service publico de lelecomuni- 
ca^ao entre computadores, bem mais di- 
ferenciado e sofisticado que o videotexto 
e o leletexto, e constituJdo pelas redes 
de microcomputadores, como por exem- 
pio o sistema Cirandiio, da empresa es- 
taial Embratel. Esse sistema proporcio- 
na aos proprietdrios de micros a possj- 



bilidade de conversarem entre si, empre- 
gando uma rede de correio eletronico 
("caixas postals"). A16m disso, eleofe- 
rece tamWm muitos outros servigos de 
"boletlm computadorizado", teleconfe- 
rencia, consulta a bancos de dados, e re- 
cepgao e transmissao de programas de 
computador. 

Uma desvantagem de sistcmas com 
muitos usuarios e que utilizam a rede te- 
leffinica normal, como o Cirandao, i a 
sua balxa velocidade de transmissao. Is- 
SQ aconlecc porque as redes telefonicas 
brasileiras nao suportam um ritmo mui- 
to intenso de transmissao, sem degrada- 
fao do sinal. Por isso, usuirios profis- 
sionais (bancos, por exempio) sao obri- 
gados a recorrer a redes especiaJs de 
transmissao em alta velocidade, como i 
o caso de outro service da Embratel, o 
Transdata. 

Transdata permite enviar e receber 
informacoes em uma faixa maior de ve- 
locidade, o que significa tambem que 
computadores de diferentcs tamanhos e 
velocidades podem compartilhar os ser- 
vigos. Esles, por^m, sao muito mais ca- 
ros do que os cobrados pelo CirandSo 
e pelo videotexto. 

O acesso a bancos de dados e redes 
de computadores situados em outros 




paises e possivel por interm^dJo do ser- 
vigo Interdata da Embratel. 



CORREIO ELETR6NIC0 



Uma rede pode intcrligar urn compu- 
lador principal, niicrocomputadore5 e 
qualquer esp^cie de perifericos. O jor- 
nal norte-americano New York Times, 
por exemplo. usa os ires lipos de com- 
putador em um dos mais sofisticados 
sistemas de produijao de informa^oes. 
Em sisicmas dessa envergadura, muitas 
pessoas que [rabaltiam em escritorio po- 
dem usar seu pr6prio terminal ligado 
a um minicompuiador, enquanto outro 
terminaJ no escrilirio se comunica com 
um computador principal. 

Desse modo, o trabalho do dia-a-dia, 
no caso de uma reda9ao de jornal, po- 
de ser preenchido por um simples mini- 
compuiador, enquanto o computador 
central e reservado para uso da admi- 
nistra^ao da empresa e para os bancos 
de dados principals. 

Por outro lado, os jornalistas que es- 
tiverem trabalhando fora da redacao po- 
dem valer-se de um microcompuiador 
com um modem para ter acesso aos ban- 
cos de dados, visando obier informagoes 
para suas reportagens. Estas podem ser 
igualmente enviadas a redagao por meio 
de um computador e um modem. 

Enn muilos paises, e comum o fato de 
jornalistas ("cobrindo". por exemplo, 
uma partida de futebol ou uma corrida 
de F6rmula-1) utilizarem diretamente 
um (eclado e um video, em lugar de uma 
maquina de escrever. Ac serem aperta- 
das algumas leclas. o resume e o resul- 
tado do jogo sac instanlaneameme en- 
viados ao computador da redacao. 

Como OS fabricantes de computado- 
res ainda nao se ajustaram a necessida- 
de de estabelecer padroes comuns inter- 
nacionais, a comunicatao enlre compu- 
ladores nao 6, por enquanto, tao fluida 
como se poderia desejar, Entretanto, OS 
problemas que concorrem para isso es- 
lao sendo solucionados e^ aos poucos. 
OS computadores vao se lornando com- 
paiiveis entre si, Isso tem aconlecido 
principalmeme no caso da comunica^ao 
entre computadores por intermedio de 
linhas telefonicas. 



SEGURANCA 



O fato de computadofes diferentes 
poderem se comunicar uns com os ou- 
tros atraves de linhas telefSnicas agra- 
da muiios possuidores de micros, mas 
assusta universidades e grandes empre- 
sas, bancos e agencias do governo. O 



probSema e que tais instituitoes tambem 
Litilizam esse tipo de comunicagao. Isto 
as toma vulneriveis pois, apesar das me- 
didas de seguram^a adotadas pelas au- 
toridades paragarantir a confidenciali- 
dade das informafoes armazenadas e 
transmitidas, seus computadores sao, 
vezporoulra, "invadidos" porusudrios 
nao autorizados. 

Esse i o lema do Cilme Jogos de 
Guerra. que foi objeto de muita coniro- 
versia. especialmenle nos Estados Uni- 
dos, onde a Fraude em siscemas teJeme- 
tricos tem causado prejuizos de milhoes 
de dolares. 

Os crimes elelronicos sao favorecidos 
pela relativa Tacilidade com que se pro- 
cessaacomunicatao entre computado- 
res. Em vez da violencia fisica, os cri- 
minosos utilizam. nesse caso, melodos 
bem mais suiis e sofisticados. Um dos 
maiores problemas com que se defron- 
tam as insiitu,i?oes fraudadas tem sido, 
alids, saber se estao realmente sendo 
roubadas. Como muitos servii;os sao fei- 
tos por meio de linhas telefonicas, a in- 
vestigagao do crime elelronico vai se tor- 
nando cada vez mais diftcil, particular- 
mente quando o pr6prio criminoso po- 
de efetuar a mudani;a dos registros re- 
lativos ao crime. 



OUTROS MEIOS DE COMUNICApAO 



Os telefones nao sao o imico meio de 
coinunicagao entre computadores. On- 
das de radio tambem podem ser usadas, 
desde que haja dols computadores co- 
nectados a equlpamentos capazes de 
transmiti-las e recebe-las. 

As fibras 6pticas sao atualmente o 
meio pelo qual a comunica^ao eniie 
computadores se processa de modo mais 
rdpido. Nesse caso, a informai;ao ^ co- 
dificada em impulses de luz e Iransmi-, 
lida por meio de finos fios de vidro. Es- 
sa nova tecnologia parece ser mais efi- 
ciente do que qualquer outro m^lodo co- 
nhecido: e!a faz com que a informagao 
viaje k velocidade da !uz. As comunica- 
cSes por fibraopticaja passaram da fase 
experimental, e estao sendo usadas em 
diversos passes, inclusive no Brasil. 

Os raios infravermelhos tambem vem 
sendo testados como meio de comuni- 
cagao entre micros numa mesma sala. 
A vantagem principal i que se elimina 
o "cipoal" de fios que acompanha toda 
grande instalagao de computadores, 



TORRE DE BABEL 



Nao importa o meio de comunicagao 
sempre existird problema de escolhido; 



compatibilidade. Isso aconiece porque 
um micro s6 pode se comunicar com ou- 
tro micro (ou com outro dispositivo pe- 
riferico) por intermedio da interface cor- 
reta. Sem a inierligafao correta de ca- 
bos e soqueies e um codigo que as duas 
maquinas eniendam, a comunicaipao 
torna-se impossivel. 

A linha teiefonica e usada para car- 
regar informagoes de um computador 
para o outro atraves de longas distan- 
cias. Entretanto, ela aceita apenas sinais 
seriais. 

Isso nao significa que os computado- 
res com interfaces paralelas nao sejam 
capazes de enviar sinais pela linha teie- 
fonica. Existem circuilos eletronicos e 
programas disponiveis que lornaram 
possivel essa emissao. Tais disposilivos, 
por6m. podem sair mais caros do queo 
proprio computador. 

Um dos problemas com o uso de le- 
lefone para comunicacao entre compu- 
tadores i que estes carregam informa- 
f oes em impulses ou pulsos eletricos dis- 
creios e separados. Mas os lelefones 
atuais sao projetados para transmitir a 
voz humana — que e um sinal analogi- 
co, continue e variavel. Assim, o dado 
de um computador precisa ser conver- 
tido em um sinal similar. 



MODEMS 



O equipamenio usado para conver- 
ter 05 dados do computador em sinais 
que possam ser transmitidos atraves das 
linhas tekfSnicas. e vice-versa, e o mo- 
dem. A palavra ^ uma abreviacao de 
MOdulador/DEModulador. que e a des- 
crigao da fun^ao do modem. 

Exisiem dois tipos de modem, o aco- 
piador aciistico e o modem de conexao 
direta. Ambos variam de formas e ta- 
manhos, mas estao geralmente contidos 
em uma caixa. O acoplador acustico tem 
duas algas de borracha para acomodar 
o bo-cal do aparelho telefonico. 

O acopEador aciistico e conectado ao 
micro e iransforma seus sinais em tons 
que podem ser enviados pela linha teie- 
fonica, Ele tambem converte cons de en- 
irada vindos de outro computador em 
informa(;6es digitals que o computador 
receptor pode entcnder. 

Jd o modem de conexao direta codi- 
fica (ou modula) o dado do computa- 
dor diretamente em sinais eletricos « de- 
codifica (ou demodula) a informagao de 
entrada em bits seriais entendidos pelo 
computador. Esses modems podem 
transmitir informa*;6es a velocidades 
maiores que os acopladores acuslicos e 
sao menos prepenses a erros. 
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AS POSICOES DE IMPRESSAO 

MOVIMEMTQ BLOCO PQR BLOCO 

COMO ABRIR CANAIS 



U5ETABELASDEREFERENCIA 
COMO MODIFICARAPONTADORES 



Inctuido nos programas de animacao 
gr^fica para os micros 
das linhas Spectrum e TRS-Color que 
apresentamos aqui, o gerador 
grafico descomplicar^ a sua vida. 

Em artigo anterior da seijao Cddigo 
deMdquina, inslruimos os usuarios do 
TK-90X e do TRS-Color a inserirem da- 
dos para a montagem de um quadricii- 
lado que poderia ser usado na criaipao 
de caracteres graficos (UDG). Nesse ar- 
tigo, apresentamos um pequenoprogra- 
ma em Ijnguagem de maquina no qual 
roram inseridos alguns niimeros cujo 
significado — arirmdvamos — nao pre- 
cisava ser compreendido naquele 
mociento. 

Mas agora, com os conhecimcnios 
que voce ja adquiriu a respeiio da lin- 
guagem de maquina, e possiVel abordar 
o que significara esses niimeros. Para fa- 
cilitar sua compreensao, decodificamos 
OS numeros que estavam em Assembler, 
iransformando-os em mnemonicos. 

Os usuSrios do MSX, do Apple e do 
TK-2000 nao prccisam se preocupar com 
isso, pois OS programas para esses mi- 
cros empregam sprites e figuras moveis 
para criar os caracteres grdficos, nao 
exigindo assim rotinas em c6digo de 
maquina. 




org 65200 


3r start 


mode defb 


1 


data defb 


22 


deEb 





defb 


Q 


defb 


32 


defb 


32 


defb 


■M 


defb 


22 


defb 





defb 





defb 


32 


d9fb 


32 


defb 


22 


defb 


22 


defb 


a 


defb 





defb 


^2 


defb 


32 


defb 


iZ 



defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
d^fb 
defb 
defb 
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144 

145 

146 

22 





147 

146 

149 

22 

a 



150 

151 

152 

22 





153 

154 



start 



reset 
print 



defb 

defb 

defb 

defb 

defb 

defb 

defb 

defb 

defb 

defb 

defb 

defb 

defb 

Id a 

cp 1 

Id be 

jr z , 

jr c. 

Hid c 

jr pr 

Id c, 

id IX 

add 1 



155 
22 




156 
157 
158 
22 
D 


159 
160 
161 
I (mode) 

,18 
pr int 
reset 

xnt 



pdata 

x.bc 
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Id a, (23689) 

Id b.a 

Id a. 24 

aub b 

Id (ix+i) .a 

inc a 

Id tix-*-7).a 

inc a 

Id (ix+13) ,a 

Id a, (23688) 

Id b.a 

Id a. 33 

sub b 

Id (ix+Z).a 

Id lix+8),d 

Id (ix+14) .a 

push IX 

Id a, 2 

=311 S1601 

pop de 

Id bc.18 

call S203C 

ret 

A primeira instru^So faz com que o 
processador passe para o inicio do pro- 
grama propriamenfe dito, saltando so- 
bre a longa lista de dados que a segue. 
Evidentemente, poderiamos chamar o 
programa na primeira instru^ao que 
aparece apos a lista de dados; mas. co- 
mo veremos a seguir, e mais facil 
cham^o pelo endere^o de origem, 

O primeJTo byle de dados, siluado lo- 
go depois do roiulo mode, diz ao pro- 
grama que quadro deve ser usado. O 
BASIC di um POKE 0. 1 ou 2 nessa po- 
sicao. UDG e um quadro vazio que 
serve para limpar a tela; e os quadros 
I e 2 sac caracteres UDG (por exem- 
plo, tanques de guerra, cada um apon- 
tando para uma dire?ao). Se nenhum 
numero for especificado, a rolina assu- 
miri o valor I para o quadro. 



OS DADOS 00 UDG 



Depois do r6tulo DATA, aparecem 
OS deialhes de tres quadriculados. O 
Sped rum desenha seas UDG na forma 
de cadeias. mas primeiro tern que ser in- 
formado sobre em que lugar colocS-los. 
As instruvoes para isso lambem cstao 
contidas na cadeia die dados: 22 6 o c6- 
digo para o AT em BASIC e os dois ze- 
ros sao bytes vazios que a rotina utili- 
zati mais tarde para definir a posi^ao 
de impressao. 

As tres series de (res niimeros 32 for- 
mam o quadro vazio de 9 x 9. O nume- 
ro 32 e o c6digo ASCII para o caracte- 
re de espa?o. Cada s^rie de trgs forma 
uma linha do quadro e deve ser prece- 
dida pelo seu pr6prio AT e pela posigao 
de impressao. Esse i o quadro 0. 

O quadro 1 i feito dos UDG de 144 
a 152. Nos dados, eles vem em grupos 



de tres com um AT e dois bytes livres 
para a posi?5o de print. O quadro 2 i 
feito dos UDG de 153 a 161. 



QUAL UDG? 



O Id a, (mode) carrega o numero in- 
serido, via POKE, no byte mode do acu- 
mulador, e cp I o compara com 1. 

O par de registradores BC 6 entao 
carrcgado com 18. Na realidade, o nii- 
mero 18 vai para o registrador C, en- 
quanto o B fica vazio. O que interessa 
durante a rolina principal e o valor do 
registrador C; mas o registrador vazio 
B serd usado mais tarde, quando cha- 
marmos rotinas da ROM. 

Se o numero do mode carregado no 
acumulador for 1 . cp 1 ajustard para es- 
se numero o indicador de zero. Entao, 
jr z, prini saltara para a rotina de nome 
print. La, o registrador IX € carregado 
com-o endereijo do primeiro byte de da- 
dos do UDG e somado com o conteiido 
do par BC, 18. 

Cada quadro coniem dezoito bytes de 
dados: nove para caracteres UDG, Ires 
para os AT e seis para posi^oes de im- 
pressao, Isso faz o registrador IX pas- 
sar sobre o quadro e ir para o come?o 
do q uadro 1 . Se o numero do mode for 

0, cp 1 ligar^ o indicador de carry. Em 
seguida, jr cresel saltard para o r6tulo 
reset e carregard C com 0. A instrufao 
add ix.bc soraard entao IX ao endere- 
CO do rdtulo data, deixando IX apon- 
tando para o comefo do quadro vazio. 

Se o numero do mode nao for nem 

1, deveri ser 2. Nesse caso, o processa- 
dor vai para a instru^ao sla c. Esta sig- 
niflca "roia^ao aritmelica para a esquer- 
da" e age sobre o registrador C. Ela mo- 
ve todos OS bits uma casa A esquerda, 
multiplicando por 2 o conteiido do re- 
gistrador. 

Assim, eta duplica o 18 (que vai pa- 
ra 36) e salta para o rotulo print. Quan- 
do BC for somado ao apontador IX. es- 
te dltimo ser^ (ransferido 36 bytes aci- 
ma na lisia dc dados, parando na posi- 
(jao do comedo do quadro 2. 



AS POSICOES DE IMPRESSAO 



A varidvel de sistema em 23 689 con- 
tem a posi^ao de impressao vertical. 
Ora, a posi^ao de impressao especifica- 
da pelo BASIC 6 a do topo do quadro. 
Essa varidveE conta de I a 24 de baixo 
para cima da tela, e nao ao contrario, 
como em BASIC. Portanto, ela deve ser 
transferida para o registrador B; depois, 
24 6 carregado em A e o valor de B ^ 
subtraldo dele. 



O apontador IX cont^m o endere?o 
do primeiro byte do quadro que a roti- 
na iri desenhar. Entao Id (ix+ l}.a car- 
rega a posifao vertical de impressao do 
topo do quadro no proximo b>ie da lis- 
ta de dados (o primeiro que estiver 
vazio). 

A 6 entao incremenlado para forne- 
cer a posi?ao vertical de impressao da 
pr6xima linha de caracteres UDG do 
quadro. Isso ^ carregado no oitavo byte 
da lista por Id (ix + 7),a. Depois, A e in- 
crementado novamenle para a lerceira 
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llnha c isso ^ carregado no d^cimo quar- 
to byte. 

Essa operapao carregou as posigoes 
verticals de impressao nos bytes vazios 
logo apos o codigo do AT, 22. 

As posifoes horizontals de impressao 
provenientes da varidvel de sistema 
23 688 sao ent§o carregadas no acumu- 
lador. Mais uma vez, essa opera^ao e 
feila de trds para a frente, se comparada 
ao que acontece no BASIC. PortanCo, 
a posigao horizontal i: carregada em B; 
A e carregado com 33 e B ^ siibtraido 



de A para fornecer corretamentc a po- 
si^ao de impressao. 

Como cada linha come^a na mesma 
posicao horizontal, isso significa que o 
mesmo valor de A pode ser carregado 
em outros espa^os vazios na lista de da- 
dos. As instru^oes adequadas para fa- 
zer isso sao Id (ix-t-2),a. Id (ix-i-8),a e 
Id (iK + 14),a. 

O aponiador IX i entao "empurra- 
do" para a pilha, protegido contra uma 
eventuaJ alterafao causada pela rotina 
da memoria ROM que esta prestes a ser 








chamada. A i carregado com 2, e a ro- 
tina de aberlura do canal em 1 601 e 
chamada. O 2 no acumulador define o 
canal a ser usado quando o processador 
vai para uma sub-rotina. O canal lea 
linha de edigao na parte inferior da te- 
la; o canal 2 e a tela principal; 6 o 3 a 
impressora. 

O aponiador IX que fol guardado na 
pilha € entao recuperado no par DE. De- 
pois, BC i carregado com 18, e a rotina 
de impressao de cadeia em 2 032 e cha- 
mada. Essa rotina imprime BC caracte- 
res, come^ando em DE. Ponanto, ela 
imprime os dezoitos caracteres que corn- 
poem o quadro, a come?ar do endere?o 
base que estt no aponiador IX. 

'Feito isto, rel retorna o processador 
para o BASIC. 



QI^^H 




OBG 32000 




LDX 32 700 




LDA 13 




STA FCNT 




STA SCNT 




LDA IB 




STA TCNT 




LDA .322 50 




BEQ Jt;MP 




LDU #32 300 




DECA 




LDB »72 




MUL 




[.EAU D.U 


LOOP 


LDA ,U+ 




STA .X 




LEAX 32.x 




DEC TCNT 




BNE LOOP 




LDA IS 




STA TCNT 




LEAX -2!i5,X 




DEC FCNT 




BNE LOOP 




LDA *3 




STA FCNT 




LEAX 25 3, X 




DEC SCNT 




BNE LOOP 




BTS 


JUMP 


CLBB 


STLP 


STB .X 




LEAX 32.x 




DEC TCNT 




BNE STLP 




LDA IB 




STA TCNT 




LEAX -255, X 




DEC FCNT 




BNE STLP 




LDA 13 




STA FCNT 




LEAK 253, X 




DEC SCNT 




BNE STLP 




RTS 


FCHT 


BMB I 


SCHT 


RMB 1 


TCNT 


RMB 1 
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O enderefo de tela correspondente ao 
canto superior esquerdo do quadricula- 
do e armazenado nas posifoes de memo- 
ria 32 700 e 32701 pelo programa BA- 
SIC; LDX carrega esse aponlador de 
dois bytes no regisiradorde X dezesseis 
bits. 6 niimcro 3 i carregado no acu- 
mulador e armazenado nos dois conta- 
dores de nomes FCNT e SCNT. O qua- 
driculado coniem 3x3 caracteres. 

Esses contadores aparecem na lista de 
dados no fim do programa. Aqui, o es- 
paf o que o contador vai ocupar e reser- 
vado por RMB (reserva byte de mem6- 
ria). O niimero 1 que vem a seguir sig- 
nifica que somente um byte de memo- 
ria deve ser reservado. Assim, RMB 50 
reservaria 50 bytes de memoria. 

O terceiro contador, TCNT, e ajus- 
tado para 8. Depois. o conteiido de 
I2250ecarre]jadoem A. tiiimerodo 
UDG e armazenado em 32 250; se esse 
mjmero for zero, BEQ JUMP desviar^ 
o programa para uraa roiina que limpa 
a tela naqueta drea. Caso contrdrio, o 
processador continuari trabalhando 
com o UDG propriamente dito. 



lUPRlMA BLOCOS GRAFICOS 



O lugar da memoria onde os UDG fl- 
eam guardados comega na posi?ao 
32 300; esse nilmero ^ armazenado em 
U para facilitar os cdlculos que definem 
onde se inicia o UDG. primeiio ca- 
ractere comeca no principio dessa drea; 
portanto, seu equivalenle e 0. Note que, 
no acumulador, o niimero de caraclere 
pedido i decrementado. 

LDB #72 carrega o registrador B 
com 72, e MULtiplica os conteiidos de 
A e B. guardando o resultado em D. Os 
acumuladorcs A e B sao registradores de 
oito bits; D ^ um registrador de dezes- 
seis bits; por isso, ele nao e sobrecarre- 
gado com resultado. Existem 72 bytes 
em cada grdfico. Cada caractere contem 
oilo bjles e ha nove caracteres para ca- 
da quadriculado (9 x 8 = 72) , Essa ope- 
rafao calcula o faior necessArio para se 
achar o enderego inicial do UDG apro- 
priado. 

A insirucao LEAU D,U carrega U 
com o valor de D mais U, Em outras pa- 
lavras, ela vai contando ao longo da lista 
ale que seja aponiado o comeco do ca- 
ractere pedido. 

LDA ,U + carrega o acumulador 
com o conteiido daquela posi^ao de rae- 
m6ria; depois, incrementa o registrador 
U e prepara-se para Irabalhar com o 
proximo. STA ,X armazena o byte do 
caractere oblido da lista de grdficos na 
posifao de memdria apontada por X. 
Lembremos que o registrador X contem 



a posicao do canto superior esquerdo do 
bloco na tela grafica. 

LEAX 32,X soma 32 ao registrador 
X; isso move o apontador para a pr6xi- 
ma lintia (hd 32 posigoes em cada linha). 
O contador TCNT e eniao decrementa' 
do; se ele nao for igual a zero, a instru- 
930 BNE retornari ao enderego loop pa- 
ra Irabalhar com o proximo byte do ca- 
ractere. 

O valor inicial de TCNT e 8; por is- 
so, loop deve ser executado oilo vezes. 



Precisamos de oito bytes, dispostos uns 
sobre os outros, para formar um carac- 
tere. Podemos chamar TCNT de conta- 
dor de bytes de um caractere. 



ADICIONE OUTRO CARACTERE 



LDA # 8 e STA TCNT retornam o 
valor S para o contador TCNT. que ja 
est^ pronto para Irabalhar com o pr6- 
ximo caractere. 
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Em seguida, a instrugao LEAX -255.X 
move o apontador X para o inicio do ca- 
ractere a direita. 

Devemos lembrar ainda que o regis- 
irador X contem o apontador de tela, 
e foi oito vezes incrementado dc 32 pa- 
ra imprimir totalmente o caractere (32 
X 8 = 256). 

O contador FTNT € decrementado de 
mode a percorrer toda a mairiz forma- 
da por nove caracteres (ou seja, tres de 
cada lado). Quando o resuliado do de- 



crementado for diferente dc (zero), o 
processador voltari para loop e Iraba- 
Ihara com o primeiro byte do caractere 
seguinte. 

Se o resultado for (zero), o proces- 
sador continuar^ pelo programa. 



COMO PERCORRER QUADRICULADO 



O contador FTNT e entao reajusta- 
do para 3 e o apontador X, adiantado 




253 posi?6es. Lembre que, anterior- 
mente, ele havia sJdo adiantado 32 po- 
siloes, o que fez com que o apontador 
fosse para a posigao de tela diretamen- 
te abaixo do caractere que acabara de 
ser impresso. Em seguida, ele foi atra- 
sado em 255, o que o deixou na posicao 
de lela imediatamente a direita do topo 
do ultimo caractere. 

Se desenharmos um pequeno quadri- 
culado mostrando ps caracteres e obser- 
varmos as posi^des relativas das loca- 
foes de tela, vereraos que o regislrador 
X foi adiantado em 32 posivoes. Ele 
aponta agora a posigao de tela direta- 
mente abaixo do ultimo caractere im- 
presso e esi^ duas locai;6es a direita do 
lugar em que deveria estar o primeiro 
byte do primeiro caractere na segunda 
fileira. 

Portanto, devemos subirair 2 do 
apontador X, a fim de move-lo para a 
posifao correta. 

Mas, como o programa jd haivia sub- 
traido 255, basta somar 253 que iremos 
para o lugar certo, 

O conlador SCNT e decrementado; 
ele conia as ires linhas de caracteres que 
formam o grdfico inteiro. Quando o re- 
sultado do decremenio for diferente de 
(zero), o BNE levara o processador de 
volta para trabalhar com a linha se- 
guinte. 

Todavia, se o resultado for (zero), 
isso significa que o grafico foi impresso 
totalmente; nesse caso, RTS levari o 
processador de volta para o programa 
BASIC. 

Siga atentamente as instru?6es, que 
o processo acabar^ se tornando claro e 
compreensivel. 



LIMPE A TELA 



Quando nijmero do bloco a ser im- 
presso na tela for igual a zero, a rotina 
simplesmente limpari a ^ea da tela que 
esti sendo acessada. O modo pelo qual 
se limpa a tela e praticamente o mesmo 
pelo qual se imprime nela. A diferenga 
entre eles e que a rotina nao precisa con- 
sultar a Itsta de caracteres, mas somen- 
ic imprimir o codigo 0, ou seja, nada. 

CLRB ajusia o registrador B para 0. 
O 6 entao arraazenado nas posigoes de 
tela apontadas pelo registrador X. Se 
voce quiser se movimentar pelo quadri- 
culado, deve aiualizar repetidamente o 
registrador X, da mesma maneira que 
na rotina de impressao; s6 que, desta 
vez, o em B 6 armazenado em cada po- 
sicao. Uma vez mais, o RTS retornar^ 
o processador ao BASIC para rodar o 
resto do programa. 



■pmmms 
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Nao se trata de mais uma fabula de 
Esopo ou de La Fontaine; aqui, o 
macaco e a cobra se reOnem na floresta 
para nos ensinar os segredos 
do trabalho com blocos graficos. 



Nos artigos anieriores, aprendemos 
a criar um grande niimero de blocos gra- 
ficos e comegamos a irabalhar com gru- 
pos de caracleres para fazer um cen^rio 
de Doresia. 

O programa que faz o desenho no lil- 
limo artigo esia dividido em partes (com 
exceijao do Apple e do TK-2000, para 
OS quais publicamos apenas o banco de 
blocos a ser digiiado por intermedio do 
moniior). Cada se?ao cuida de um seg- 
memo Cou figlira) do desenho — croco- 
dilo, elefante, arvores, e assim por dian- 
le. A se^ao desle artigo acrescenta uma 
cobra e um macaco, al^m de concluir o 
fundo do quadro. Tanto no caso do Ap- 
ple como no do TK-2000, apresentamos 
o programa complelo. 

Carregue agora a primeira parte do 
programa para poder digitar a continua- 
(ao. Os usuarios do Apple e do TK-20OO 
devem antes carregar o banco de blocos 
gravado no artigo anterior por interme- 
dio do moniior. 
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140 POKE 23676 
150 FOR n-USB 
: HEAD a: POKE 
160 POKE 23676 
170 FOB n-USB 
: READ a: POKE 
190 POKE 23676 
200 FOB n-USB 
: BEAD a: POKE 
210 POKE 23676 
220 FOR n-USB 
: READ a: POKE 
230 POKE 23676 
240 FOR n-USB 
: BEAD a: POKE 
510 INK 1 
520 POKE 23676 
530 LET Z-U4: 
FOB ia«16 TO IS 
CHBS z : LET z 
NEXT n 

540 POKE 23676 
550 LET z-144: 
FOB 111-17 TO IS 
CHBS z : LET z 
NEXT n 
610 INK 
620 POKE 23676 
630 PRINT AT 
1.24;CHBS MS; 
iCHBS 147iCHB3 



.254 

-a' TO USH 'r"+7 

n.a: NEXT n 
.253 
■a- TO USB ■J"+7 

n.a: NEXT n 
,252 
"a" TO USR -u"+7 

n.a: NEXT n 
.251 
"a" TO USB 'Li" + 7 

n.a: NEXT n 
,250 
"a" TO USB ■g"+7 

n.a: NEXT n 

.254 
FOR n-2 TO 7: 
: PRINT AT m-n; 
z+1: NEXT m: 

,253 

FOR n-8 TO 12: 
: PRINT AT m.n; 
2+1: NEXT m: 



640 PRINT AT 2,Z3:CHRS 149; 
CHRS 150;CHR3 151:CHHS 32;CHBS 
152:CHRS 153 

650 PRINT AT 3, 23: CHBS 154; 
CHRS 155;CHRS 32;CHBS 32:CHR$ 
156;CHBS 157;CHBS 158 
660 PRINT AT 4, 24; CHRS 159; 
CHRS 160:CHR5 32:CHBS 161:CHRS 
162:CHBS 163;CHRS 164 
670 POKE 23676.251 
680 PRINT AT 5,24;: FOR n-144 
TO 151: PRINT CHBS n;: NEXT n 
690 PRINT AT 6,24;CHRS 152: 
CHBS 153:CHRS 153;CHBS 153; 
CHBS 153;CHH3 154:CHRS 155: 
CHBS 156 

700 PRINT AT 7,23;CHBS 157; 
CHRS 158;CHBS 159;CHR3 32;CHR3 
32;CHRS 160;CHRS 161iCHBS 162; 
AT 8,22;CHBS I63:CHRS 164: 
710 POKE 23676,250 
720 PRINT CHBS 144:CHRS 145; 
CHBS 3Z;CHRS 32;CHRS 146;CHBS 
147;AT 9.24;CHRS 148;CHRS 149i 
AT 10,24;CHB5 150 
855 INK 6 

860 FOR n=0 TO 2"PI STEP .05: 
PLOT 70,150: DRAW SIN n"12 , 
COS n*12; NEXT n 
670 FOR n=0 TO 2*PI STEP PI/4: 
PLOT 70,150: DRAW COS n*ZO,SIN 
n*20: NEXT n 
970 INK 



.252 

,30:CHBS 144 iAT 
CHRS 146;AT 1.28 
14B 



m 



10 FOB I-O TO 9B3 

150 CIRCLE (50,30) ,25.11 

(50,30) .11 

160 DRAW ■■BM5D,3nCllNU30 

4NF60ND84NG60NLe4NH30" 

200 FOB I-l TO 131 

3090 DATA 641,18,210,673 

.705. 20. 210, 642, 21, 2]0 

3100 DATA 674,22,210,706 

,643.24.210.675,25,210 

3110 DATA 707,26,210,644 

,676,28,210.708,29,210 

3115 REM APAGAR 

3120 DATA 645,30,210.677 

,709,32,210,646,33.210 

3130 DATA 678,34,210.710 

.679,36,210 

3135 BEM APAGAB 

3140 DATA 711.37,210,680 

,712,39.210.681.40.210 

3150 DATA 713,41.210,682 

,714,43,210.683.44,210,7 

10 

3160 DATA 23.46,148.49,47.148.6 



: PAINT 

NE60NR8 

,19.210 

,23,210 
,27,210 

.31.210 
,35,210 

.38,210 

,42,210 
15,45,2 



0,48,148,53.49.148 

3170 DATA .^4,50,149,80.51,148,6, 

1.52.148,82.53.148 

3180 DATA 84,54,148,85.55.148,1 

12,56,148,113,57,148 

3190 DATA 116.58.148.117,59.148 

.118,60,146,145,61.148 

3200 DATA 146,62,148.148,63.148 

.149,64,148,150.65,148 

3210 DATA 151.66,148.177,67,148 

.178.68,148,179,69.148 

3220 DATA 180. 70, 148. 181, 71, lis 

.182,72. 148,183,73.148 

3230 DATA 184,74.148,209,75,148 

,210.76,148,211.76,148 

3240 DATA 212,76.148.213,76,148 

.214.77,148,215,78,148,216,79,1 

48 

3250 DATA 240,80.148.241.81.148 

.242.82,148,245,83,148 

3260 DATA 246,84.148.247,85.148 

.271,86.148,272,87,148 

3270 DATA 273,88.146,274.89,148 

.27 7,90,148,278.91.148.305.92.1 

48,306,93,148.337,94.148 

3280 DATA 500,95,226,501.96,226' 

.502,97,226,503,98,226 

3290 DATA 537.99,226.533.100.22 

6,5 34.101.226.535.102,226 

3300 DATA 536,103,226,565,104,2 

26,566,105.225,567,106,226.568, 

107.226 



*r' 



/■ 
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LINHAS DATA QUE COMPLETAM 



ta 



CEN ARIO DA FLORESTA 

UM MACACO E UMA COBRA 
PROGRAMA COMPLETO NO 



APPLE E NO TK-2000 



COMO COMPLETAR FUNO O 

SUGESTQES para ANtMA CAO 

COMO GUARDAR BANCO 

DE BLOC OS 

SOL EM ALTA RESOLUCAO 




3310 DATA -32.-4,36,75,80,147 

3320 DATA 342,108,36,343.109,36 

,374,110,36,375,111,36 

3330 DATA 406,112,36.407.113,36 

.439.114,96,471,114.96 

3340 DATA -44,-20,-15,60.84.96, 

157,163 

3350 DATA 327,115,36,328,116,36 

,329,117, 36, 330, lie. 36 

3360 DATA 360,119,96,361,120.96 

,392,121.96,424,121.96 

3370 DATA 456,122,96 



f^ 



J 400 REM COBRA 

1410 DATA 0.0,0,0,0.0,3,14,31.3 

1,63.67,65,254,254,225,71,63.0, 

0,0,0.0,0,0 

1420 DATA 0,0,0.0,255.12,26.28. 

28,254.143.1.0,4,248,208.224 

14 30 DATA 0,0.0,0,0.0,0.0,0,0,0 

,128.240.56 

1440 DATA 52,99,225,225.225,96. 

47,31.14.6,2.1,0.0,0.0,0.0.0,0, 

3.5,63,127 

1450 DATA 255,225,240.248,252,2 

55,255.126,60.28,124,247,247.11 

5,31,1.0,0,0,0 

1460 DATA 255,191.159.143.199,1 

94,127,64,128,128,64.63 

1470 DATA 48,112,248,249,253,25 

5, 189, 255. 0,0. 0,0, 192, 252, 190. 6 

3.63,24,240 

1480 DATA 9,5,7,5,249,67,243.25 

1.255,252,238.239.255 

1490 DATA 192.224,208,223,224.1 

29,193,227.243.247,255.248.240, 

224,192 

1500 DATA 0,0.0', 0.255, 129, 195,1 

99,199 

1510 DATA 239,239,255,0,0.0.0,0 

,0,0,0,128,248,31,140,158,191,1 

91,255,0.0,0.0 

1520 DATA 0.0.0.1,15,62.206.30, 

61,121.243.247.247,63,15, 3,0 

1530 DATA 30.127.191.95,93.61.2 

50,240,194,252,194,192,19 2,224. 

224 .24 

1540 REM MACACO 

1550 DATA 1,2,4.8,16.32.64,128. 

0.0,0.3.31,63,127,252,0,0,0.224 

,248,2^2,252 

1560 DATA 62,3,15,15.15.15,14,1 

4.12 

1570 DATA 3,142,240.192,128.0,0 

.0.1,1,3.3,3.3,3.3.248,240,224, 

224,192 

1580 DATA 192,192,192,30,14.110 

,76,56,0,0,0,0,0.0,0.0,0.0 



'. PROCRAMACAO BASIC 44 



1590 DATA 1.28,28,56.56.112,112 

.224.224 

1600 DATA 3.3,1.1.1.0,0.0,192,2 

24,224,240,248,248,252,126,3,7, 

15,31,63,62 

1610 DATA 126,252.192,192,128.0 

.0.0.3,7,0,0,0,0.0.0,128,223 

1620 DATA 127,63.31,31.15,7,7,3 

,0,126.128.192.192,192.224,240, 

252,126,126,127 

1630 DATA 63.63.31,31.15,15,7,3 

,3,131 .131.131 

1640 DATA 255.255,231,231,255,2 

52.172,163,128,192,224.224,224, 

224,224,224 

1650 DATA 1,1,0,0,0,1.3,7,248,2 

55,255.255,255,255.255,255.0 

1660 DATA 255.255,255,255,255,2 

55,255 

1670 DATA 15,255,255.255,255,25 

5.255.255,199,255,255.255,255,2 

55,255,255 

1680 DATA 223.239,255,255,252.1 

28,0,128,224,240.248,248,240,96 

,0,0,0,0.200 

1690 DATA 232,248,248,120,112 

1700 DATA 7,15,15.31,31,31.63.6 

3.255,255,255,255,255,255,256.2 

55,192.224,224 

1710 DATA 224,224.224,192.192.0 

,0,1.1.3,7.14,60.240.224,192,12 

6,128,0,0,0 

1720 DATA 0.0,0.0.0.3.15,31,63, 

63.63.63,126,254,252.240,191,19 

1,63,63.63 

1730 DATA 63.63,63,15,7,7.7,7,7 

.7,7.192.131,135,159,191,255,25 

4,252 

1740 DATA 252,248.240,224,192,1 

28,0,0,0,1,3, 7.6.6,4,0,127. 254, 

240.224 

1750 DATA 64,64,0,0,192,0.0,0,0 

,1.1,3.63,31,63,127,254.252,248 

.240 

1760 DATA 7.3.0.0,0.0,0,0,240,1 

92. 0.0, 0.0. 0,0, 7, 7, 15, 31, 31, 31, 

23,23, 224 

1770 DATA 192,128,0,0,0,0,0,7.6 

,4,0,0,0,0.0 



□ 



20 DIM C(59) ,M(156) ,S(48) .EC17) 

.TKl) ,T2(7) ,F1{7),F2{7) 

90 PCLS 3 

100 DBAW "BM62,1C2DG6LG2LGLUHLG 

LD6GDGDGDC7DG2DHD3BD2FDFDL12H2L 

ULU3HUH4UH2ULU5EUE4B3F3D2GLHURB 

D2H2E2U3HUHLHL4GL2G4DGD7FD2FDFD 

F2D- 

110 DRAW "F2DFD2G3DGDGD2GD5G2L2 

GLG2LGLG2D3EUEH2ND2E2H2EH2EBERE 

UEUEUEBD9FG4DG2DG2D2ND2R2D5E2U5 

E8U9E3H17F3D6FH3EHEHE2HE5UE3UE3 

UE' 

120 DRAM "U2NU2LH2LD3FDGDGDG4LG 

LGLG2LG2HU2EUEU4H3E2H4EBFRFEURU 

H2U6H3L4GH2L2G2DF2D4G2L2H2U2HUH 

UHUEUE1JE2UEUEUEUEU2EUEHEUL4D5L3 

D6L2D3L2D3" 

130 DRAW ■BM24,16U3NL6DL8D2L2D2 

L2D9BM70 , 43D4G8BM3 . 64E3BM+10 . 10 




D3" 

140 PAINT (50.50) ,2 

150 DRAW ■BM56,34C1RDBF3DBL7DF2 

BE2BU2' 

160 GET(O.O)- (76,80) ,M,G 

170 PCLS 

180 DRAW "BM13,11C4R3L8H2U2EUE2 

EREHER8FR2F3RE3HERERllFa3F2RF4B 

12FH3FH4EBER2EREREB3FD4GBU3GDG2 

LGFNR3GD2FDFL4' 

190 DRAW -H2LBLHLHL18G4LGL16HL3 

HLH9LHL2HL2G3DFB3BM23,6D3FDF5RF 

2R9EH2ER7BH52 , BLGL3G2LllH2UE2a7 

F4" 

200 PAINT {60.10) ,3,4:PAINT (13 

.5) ,3,4 

210 DRAW ■BM83,8C1DBL4BG5H3G4H5 

G5H4G5H3G4H4G3H6E4F2E2F2E2F2E2F 

4BK7 , 13LH3E6F4E4FDFD2F9R2FR15E- 

220 GET(0,0)-(e8,21} ,S,G 

370 CIHCLE{50,30) .25,2:PAINT |5 

0,30).2:DRAW "BM50 , 30C2NU30NE60 



NH64NF60NDS4NG60NLe4NH30" 

430 PUT (10,166)-(98,ie7) .S.PSE 

T 

440 PUT (140,0)-{216.80) ,M,PSET 

Essas adifSes encaixam direitinho 
nos programas do artigo anterior — ex- 
celo no MSX, em que varias linhas de- 
vem ser substitui'das e duas delas apa- 
gadas. O que fizemos foi criar mais blo- 
cos grdficos. Novamente as linhas DA- 
TA de 1 400 a 1 770 sao comuns ao 
Spectrum e ao MSX. O programa do 
Spectrum come?a com novas linhas que 
colocarao na mem6ria os dados adicio- 
nais, usando o comando POKE. 

A listagem do MSX leve o compri- 
mento do lai?o da linha 10 mudado; a 
fim de que os novos dados fossem co- 
locados na parte alia da mem6ria. As li- 
nhas 150 e 160 desenham o sol. O la^o 





II 



da linha 200 tamWrn teve seu compri- 
mento modificado para que as posi^oes 
e cores dos novos biocos pudessem ser 
lidas, Essas novas posipoes e cores se en- 
conlram nas linhas DATA a partir de 
3 090. Observe que parte das linhas do 
antigo programa teve que ser apagada, 
pois as posi?6es dos biocos no banco fo- 
ram modif icadas . 

O TRS-Color usa DRAW para dese- 
nhar os novos personagens e GET para 
armazenar os padroes em mafrizes, 

Cada programa coloca os biocos nas 
posi^oes adequadas no cenSrio. 



3} 



O primeiro passo consiste em carre- 
gar o banco de biocos fornecldo, por 



30 FOB I ■ 
,130 - e « 
- 200) * (I 
40 HCOLOH' 



meio do monitor. Se voce gravou o seu, 
entre o monitor com: 

CALL -151 

posicione a fita e digite: 
4000.5000 L 

Ou recorra ao gerador de biocos, se 

seu Apple usa disqueie. Eis o progra- 
ma complelo: 

10 HGft :E - 16364:7 - 8192 
20 HCOLOR- 1: FOR I - TO 176 
: HPLOT 1,159 - 4 * SQR (176 - 
I) : NEXT 

120 TO 279: HPLOT I 
SQR (I - 120) + {I 
> 200) / 10: NEXT 
5: FOB I - TO 7 S 
TEP .05:F - ( INT < END (1) " 1 

01 - 5) 

50 HPLOT 50 + (30 + 20 • F) " 

COS (I) .50 + (26 + 20 - F) - 
SIK (I) TO 50 + (30 + 20 * F) " 

COS (I ■»- 3. 14). 50 + (26 + 20 
« F) * SIN (I + 3.14) : NEXT I 
60 READ NF: FOR M - 1 TO NF : H 
EAD L.NL 

70 FOB J - 1 TO NL: 
NB: FOR K - 1 TO NB 
80Y-L+J-1:X- 
N = BI + K - 1 
90 FOB I - TO 7 
100 POKE T + (y - 8 

- 8 * (Y > 151 ) ■ 128 + 40 * 

> 7) + 40 * (Y > 15) + X + 
4*1, PEEK (E + N * S * II 
110 NEXT I.K.J.M 
120 END 
ISO POKE T + (Y - 8 ■ (Y > 

- a " (Y > 15)) " 128 + 40 ■ {Y 

> 7) + 40 • (Y > 15) + X + 102 
4*1. PEEK (E + N * 8 + I) 
1000 DATA 7.17.3.1.25.14.4 
1.25.14.81.25.14 

1010 DATA 17.3.160.4.7,200,4. 

13,240,4,13 

1040 DATA 3.7,30 ,30,9,70, 

30.9. 110.30.9.154,34.1.194.34.1 

,234,34,1,273.33.3 

1050 DATA 5 , 7 , 30 , 32 , 7 , 70 , 3 

2,7,110.32.7.154.36.1.194,36,1, 

234.36.1.273,35,3 

1060 DATA 5,7.30.28.9.70.2 

8.9.110.26.9.154.32.1.194.32.1. 

234.32.1.273,31,3 

1070 DATA 7,7,30,30,9,70, 

30 , 9 . 1 1 , 3 . 9 , 154 , 34 . 1 , 194 , 34 . 1 

,234, 34.1, 273,33,3 

1060 DATA 0,10,25,25,1,5 

8.18,7,97, 17.7,137,17,7.176,18. 

8 

1090 DATA 219.19,9.258, 

18.9,297.17.9.15.17,8.57.19.1 



READ BI.C, 

C + K - 1: 



{¥ > 7) 

(Y 
102 



7) 



S 



No TK-2000 entramos no monitor 
por meio de LM (e o banco de biocos 
deve ser carregado em outra poslgSo): 

AOOO.BOOOO L 'nome" 




A fluresla no TRS-Colar. 



Na linha 10, o valor de T deve ser 
mudado para 40 960, Os usuarios desse 
micro tambdm podem mudar as cores 
nas linhas 20 a 40. Para modlficar as co- 
res dos animais e precise alterar de uma 
unidade a coluna na qual e impressa a 
Figura. (Azui e verdc sairao invertidos 
no TK-20(H),) 



COMO FUNCIONA 



A linha 10 liga a tela gr^fica e arma- 
zena em E e T os enderecos inlciais das 
duas pdginas de video. 

As linhas 20 e 30 desenham as coli- 
nas, e as linhas 40 e 50, o sol. Como nao 
hd comandos especificos para tratar 
elipses no Apple, livemos que lan?ar 
mao de f6rmulas matemiticas. 

As linhas 60 a 120 usam quatro la- 
gos FOR ... NEXT para colocar os bio- 
cos em posicao correla na tela, Os da- 
dos necessdrios para lanto estao nas li- 
nhas DATA de 1 000 em diante. 

O metodo posto em pratica e o se- 
guinte: Iniciaimente, a linha 60 usa 
READ para descobrir o niimero de fi- 
guras (NF) que serao desenhadas. O la- 
?o FOR ... NEXT que se inicia nessa li- 
nha cuida para que o processo de dese- 
nhar uma figura seja repetido NF vezes. 
A cada figura desenhada, sao obtidos a 
seguir, tamb^m com READ, a linha (L, 
entre e 39) em que vai ser colocado o 
canto superior esquerdo da figura e o 
niimero de linhas da figura (NL). 

O primeiro FOR ... NEXT da linha 
70 cuida de desenhar NL linhas. O pro- 
grama [em que saber qual o niimero do 
bloco inicial de cada linha da figura no 
banco de memdria (BI), em que coluna 
da tela ela comeca (C) e quantos biocos 
ela tern (NB), O segundo FOR ... NEXT 
da linha 70 cuida de desenhar NB 
biocos. 
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A linha 80 se dedica a calcular a po- 
sicao exata da leia (X,Y) e o numero do 
bloco no banco (N), para que o laijo en- 
tre as linhas 90 e 1 10 possa desenhar um 
novo bloco. 

Esse tipo de orgaQiza^ao das linhas 
DATA so e possive! devido a disposicao 
dos blocos no banco — carregue o ge- 
rador e observe o banco. As linhas 1 000 
a 1 080 cont^m os dados do crocodilo, 
da cobra, das quairo arvores e do 
macaco. 

A linha 1 010, por exemplo, enccrra 
OS dados da cobra. Ela nos informa que 
esia deve ser desenhada com seu canto 
superior esquerdo na linha 17 e tem tres 
linhas de blocos. O primeiro bloco da 
primeira linha ocupa a posi^ao 160 no 
banco e sera colocado na coluna 4. Es- 
sa primeira linha tem set€ blocos. Com 
um programa assim voce poderd fazer 
seus proprios cenarios. 



Eirh^'iaii^ 



CENARIO COMPLETO 



Ao ser execuiado o programa, a tela 
se enche de blocos graficos e o cendrio 
parece completo. Uma cobra, um ma- 
caco e um sol radiante foram acrescen- 
tados pelas novas linhas. (Menos no Ap- 
ple, em que lodas as linhas sao novas.) 
Poderiamos ler incorporado mais ele- 
fantes, arvores ou crocodiles k cena, 
mas, seja como for. dispomos agora de 
todo um conjunto de novos blocos pa- 
ra usar em nossos desenhos. 



SOL EM ALTA RESOLUCAO 



Note que, al^m dos blocos, foram 
usados comandos grificos (nao hd ne- 



nhum motivo para nao se fazer a com- 
bina^ao dasduasl-ecnicas, jaque issoda 
excelentes resuhados). 

O Spectrum e o Apple constroem seu 
sol desenhando vdrios raios bem pr6xi- 
mos, enquanto o MSX e o TRS-Color 
usam o comando PAINT. 

Podemos ainda alterar o desenho em- 
pregando oulros comandos graficos, de- 
senhando mais colinas ou tragando re- 
tas que fagam o chao parecer irregular 
ou rachado, 

Ja comentamos a necessidade de usar 
matematica tanto no Apple como no 
TK-2000 dcvido k falta de recursos grd- 
ficos do BASIC. 

Quando se trabalha com blocos gra- 
ficos, as varia^oes possiveis sao quase 
infinitas. Com eles. pode-se nao s6 mo- 
dificar o niimero de arvores, cobras e 
macacos, como tamb^ra formar novas 
figuras. Um exemplo obvio em nosso 
caso seria mudar a cor da copa das ar- 
vores (para branco ou cinza) e desenhar 
nuvens ou arbustos. 

Devemos, contudo, preslar atenijao 
nas cores. Se quisermos, por exemplo, 
usar as copas como arbustos. teremos 
que coloca-las no copo das colinas ja que 
ambas sao verdes. No caso do MSX, po- 
demos mudar o torn de verde; no Ap- 
ple nao havera problemas. ]i que a co- 
lina nao foi pintada. 



ANIMApAO 



As vantagens de construir as figuras 
com blocos graficos nao terminam ai: 
podemos tamb^m converte-las em figu- 
ras m6veis, fazendo certas modificafoes. 
Para animar os bichos, poderiamos de- 
finir um ou dois blocos extras — cons- 
truindo um novo corpo para o elefante, 
por exemplo, ou umacauda em posigao 
diferente para a cobra, ou mesmo dan- 



do ao macaco uma banana para comer. 
No MSX, podemos usar sprites para 
animar as figuras, Ji no Apple e no 
TK-2000 encontraremos algumas difi- 
culdades. pois os blocos graficos sao um 
tanto lenlos. A akernaiiva e lani^aj mao 
do comando DRAW, com a ressaiva de 
que. com sua utilizagao, e muJto dificil 
preservar ao mesmo tempo a forma e a 
cor de uma figura. As linhas DATA ne- 
cessirias para um DRAW sao comple- 
lamente diferentes das linhas que os blo- 
cos grificos empregam. 



JUNTE BLOCOS PARA FORMAR FIGURAS 



Se quiser empregar blocos grdficos 
para animar OS desenhos, as figuras des- 
tas paginas Ihe mostrarao como os va- 
ries caracteres compoem a cobra e o ma- 
caco (o artigo anterior mosira um dese- 
nho semelhante para o crocodilo). Es- 
ses desenhos nao correspondem ks figu- 
ras do Apple, mas podem ser usados pa- 
ra criar elementos mdveis (DRAW); pa- 
ra issD, e precise apelar para o editor de 
figuras desse micro. 

Enquanto o crocodilo, a cobra e o 
macaco parecem ter seu uso restrito aos 
desenhos de selvas e zool6gico.s, as ar- 
vores, nuvens e arbustos podem apare- 
cer em oulros desenhos. 



GRAVACAO DE BLOCOS 



Os programas considerados ate aqul 
empregam um grande niimero de blocos 
grificos a ti'tuio d« ilustracao, e para 
fornecer blocos potencialmente ijleis em 
oulros desenhos. 

Todavia, € possivel fazer desenhos 
muilo inieressanles usando upia quan- 
tidade bem menor de blocos. O iruque 
para isso consiste em uUlizar diversas ve- 



zes OS mesmos biocos. Desse modo, po- 
demos. por exempio, desenhar uma ma- 
nada inteira de etefames, ou colocar um 
muro em nosso cendrio, preerichendo 
uma grande extensao da tela com ape- 
nas dois tipos de blocos grSficos. 

Entretanto, como a produf ao de blo- 
cos tiao apresenta problcmas, a grande 
vaniagem em utilizar poucos blocos es- 
td em economizar tempo (no trabalho 
de criacao e digita?ao) e espaco de me- 
moria (que as longas linhas DATA dei- 
xam de ocupar. O Spectrum, em parti- 
cular, gasta muila membria para guar- 
dar essas linhas DATA). 

Ao empregarmos linhas DATA para 
armazenar os padroes dos blocos, esla- 
remos ocupando o dobro do espa^o ne- 
cessirio, jd que esses padrdes serao 
transferidos para uma outra area da me- 
mdria assim que rodarmos o programa. 
Em compensa?ao, podemos economizar 
memoria. se gravarmos os bancos de 
blocos direiamente em fita cassete, apa- 
gando a seguir as linhas DATA. 



Para gravar os padroes do banco de 
blocos, use: 

SAVE "nome" CODE K.Y 

onde X c o endereco inlciaJ do segmento 
de mem6ria que queremos gravar, e y 
6 o sen comprimento. 

Devemos. portanto, saber o endere- 
<;o inicial do banco de blocos, tanto pa- 
ra colocar nele os valores das linhas DA- 
TA, como para mudar o aponiador de 
caracleres UDG. 

O comprimento do bloco ^ de fdcil 
deduijao: normalmente. ele 6 o niimero 
de blocos multiplicado por 8. O progra- 
ma visto linhas atras usa oito bancos pa- 
ra guardar lodos os blocos necessdrios 
ao desenho da selva, Cada um desses 
bancos comeca 256 bytes acima do ban- 
co anterior (ao conlririo do numero mi- 
aimo de 168 bytes), a fim de permitir 
que o apontador seja modificado com 
apenas um POKE, em vcz de dois. Isso 
tambem signJfica que, se quisermos gra- 
var essa porgao de memdria, devemos 
informar que ela tern 256 x S bytes (** 
comprimento. 

Grave os blocos da floresta com: 

SAVE "Eloreata" CODE 634,46.2048 

Para carregar os blocos de volta, 
digite: 

LOAD '" CODE 

Para colocd-los em outre lugar da 
memriria, escreva o novo enderego 
inicial apos CODE. 



m 

O MSX grava o banco de blocos em- 

pregando o seguinte comando; 

BSAVE "CAS:rome* X,y 

onde X 6 enderego inicial e y, o com- 
primento da parte da mem<!iria que que- 
remos gravar. 

No caso do programa acima, use: 

BSAVE -CASrSELVA" IHDIOO , tttlOOO 

Isso grava apenas o padrao dos blo- 
cos. Lembramos que fleam faltando os 
bytes de cor. (Os blocos nao serio visi- 
veis pelo gerador.) 

Para carregar os bytes da fita. use: 

BLOAD "CASi" 



Posicione a fita e digite: 

4000.5000 U 

Para carregar o banco, ainda no mo- 
do monitor: 

4000.5000 R 



E] 



a] 



Para gravar os blocos guardados na 
pSgina 2 de video, devemos entrar no 
monitor com: 

CALL - 151 



No TK-2(X)0 D processo se assemeiha 
ao usado no Apple. s6 que devemos en- 
trar no monitor com LM, e digiiar: 

AOOO.BOOO U 'floiresta' 
AOOO.BOOO B ■" 

(para gravar e ler a fita, respecti- 
vamente), 

D 

Esse computador usa comgndos 
DRAW em vez de linhas DATA, de for- 
ma que nao hi vaniagem em gravar os 
blocos. 
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UM EDITOR 
DE TEXTOS (0 



O processador de texios i uma das 
mais liteis aplica^oes para qualquer 
computador pessoal. Em cerlos casos, 
quando se quer melhorar os resultados, 
pode-se comprar um programa sofisti- 
cado em linguagem de miquina. Pro- 
gramas como esse, pordm, sao caros e 
uso do editor neni sempre e simples, 

A parte do programa coberta por es- 
le artigo constilui um padrao para um 
editor de lextos simples, que estd estru- 
lurado de forma a ser liiil at^ mesmo 
^queles que nunca viram um programa 
desse lipo. Com ele i possi'vel criar me- 
morandos, canas ou quaisquer oittros 
textos a serem enviados para a impres- 
sora. O texto pode ser gravado em dis- 
co ou em fila e carregado para uma pos- 
terior utiliza^ao. 

Devido ao lamanho do programa 
complete — pelo menos 7,5k — a lista- 
gem foi dividida em Ires unidades, que 
nao funcionarao adequadamente at^ 
que a lillima parte seja digitada. Ape- 
sar dissD, 5cra possi'vel criar arquivos de 
lexio no Fim da segunda parte. A lercei- 
ra parte e formada pela rotina para a im- 
pressora, que possibilila o envio de da- 
dos para impressSo. Ordena9ao e roti- 
na de busca estarao disponiveis. 

Vejamos como o programa funciona, 
antes que sua primeira parte seja digi- 
tada. Ele esta destinado a varias aplica- 
fjoes domesticas; mas, como em qual- 
quer ouiro programa desse lipo, seus 
menus e telas de apresenlatao podem ser 
modificados ao bel-prazer do usudrio. 
Todavia, se voce resolver modificd-lo, 
tome cuidado para n£to alterar a nume- 
ra^ao das linhas, de maneira que o com- 
putador possa acessa-las convenienie- 
mente, sobretudo se houver novos md- 
dulos a serem adicionados. 



MENU PRINCIPAL 



Ao ser executada, a versSo completa 

do programa ap resent ard imediaiamente 
algumas opfoes para entrada e saida de 
dados. Isso prepara o sistema para o uso 
de cassete ou acionador de discos. No 
caso do Spectrum, quem possuir um Mi- 
crodrive pode adaptar o programa pa- 
ra utiliza-lo de acordo com as indicatoes 
oferecidas. 



Se for de seu interesse, vocS pode dar ' 
entrada por um meio e saida por outro 
e mitdar mais tarde. 

O menu principal e moslrado e as se- 
guintes opfoes sao apreseniadas: 

[CI ARREGAR 

[G] RAVAR 

[Ml UDAR E/S 

[E| DITAR 

[LI IMPAR MEM6RIA 

[1| MPRIMIR 

[SI AIR 



CARREGAR 



Se voce quer continuar a trabalhar 
em um texto ja exisiente, pressione C 
para iniciar a rouna que carrega o texlo 
na mem6ria. Qualquer outro al presen- 
te sera apagado. Portanto, uma mensa- 
gem "Confirme (S/N)" serS inserida 
antes de se dar prosseguimento a roti- 
na. Tecle S para continuar ( ou N para 
inierromper). Um nome de arquivo se- 
ra entao solicitado: ele e necessario pa- 
ra que se possa continuar. Em seguida, 
o referido arquivo ^ carregado na me- 
moria e pode ser trabalhado. 



GRAVAR 



A rotina de gravaf ao e usada para 
criar arquivos seqiienciais para armaze- 
namento dos textos. Quando essa op^ao 
for selecionada, teclando-se G — e des- 
de que haja alguma coisa na memoria 
— , sera solicilado um nome para o ar- 
quivo. O Sinclair Spectrum gravar^, 
mesmo que nao haja nada na mem6ria. 
Uma entrada nula nao sera aceita. O sis- 
tema jA "sabe" qual op?ao de E/S estd 
sendo usada e continua a pedir infor- 
ma?6es de acordo com as necessidades 
do cassete ou do acionador de discos. 
No final, pressione < RETURN > ou 
< ENTER > para efetuar a gravacao. 

Os usuirios de disqucie devem lomar 
bastante cuidado ao escolherem o nome 
do arquivo. Se o tltulo de um arquivo 
ja existente for usado, esie sera apaga- 
do, ficando no disco apenas q arquivo 
mais novo. Rolinas adicionais de grava- 



Datilografe textos sem gastar dinheiro 
com program as sofisticados e 
sem quebrar a cabeca com processadores 
complicados de palavras, 
executando o programa deste artigo. 




i;ao podem ser incorporadas a fim de 
proieger arquivos. trocar nomes etc. 



ENTRADA/SAIOA (E/S) 



Se voce quiser mudar os parametros 
iniciais de entrada e saida (em ingles. 
abreviados por I/O <i^ input /output), 
pode faze-Io a qualquer momento, te- 
clando M. Digite sua opgao. Isso confi- 
gura automaUcamente o programa com 
as novas necessidades. 

O programa do Sinclair Spectrum 
funciona com fita ou Microdrive. As 
mudan^as necessdrias para o Microdri- 
ve aparecem ap6s a listagem principal. 
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ANALISE MENU 



PARAMETROS DE ENTRADA 



COMO CARREGAR E GRAVAR 



E SAIDA 



NOMESDEARQUIVOS 



OTRABALHODEEDI CAQ 



COMO AJUSTAR CORES 



TRABALHE COM TE XTO 

COMO LIMPAR A MEMORIA 

PROGRAMA EDITOR DE TEXTOS 




MODO DE EDICAO 



Pressionar a lecla E leva voce a um 
menu secund^rio que mostra: 

m opo 

[FlIM 

[P| RdXIMA LINHA 

JC] OR (nao para o Apple e o TRS-Color> 

[M] KNU 

As duas primeiras op^oes o levam ao 
inicio (TOPO) ou ao fim fFIM) do tex- 
(Q que esta na membria. A terceira op- 
^ao conduz para a ultima I inha com que 
se estava trabalhando. A ultima o faz re- 



tornar ao menu principal. 

A opc^o COR permite ajustar as co- 
res de frente, fundo e bordas, de acor- 
do com a sua preferencia. 

Cada uma das tres op^oes iniciais co- 
loca o programa no modo de entrada. 
A tela mostra iinhas demarcando o ini- 
cio e o fim do texto (pode aparecer ape- 
nas uma, se ja houver aJgum lexto ar- 
mazenado na mem6ria). Na parte mais 
baixa da tela h^ uma "area de trabalho" 
e um indicador de "mem6ria livre" (nao 
disporu'vei no micro Spectrum) que per- 
mite saber quantos caracteres disponi- 
veis ainda se tem. 

O texto ^ digitado na parte inferior 
da tela (irea de trabalho), Os comandos 



ENTER ou RETURN o transferem pa- 
ra a mem6ria e para a area de texto. O 
mesmo acontece quando duas Iinhas da 
tela sao compleiadas. 

Varias rotinas de edi^ao estao embu- 
lidas no programa. Elas (e as tecias que 
as controlam) variam um pouco de nia- 
quina para maquina e serao discutidas 
em maior detalhe no momento oportu- 
no. Toda a edigao e feita na iiea de tra- 
balho. Os controles de edigao permilem 
que se movimente pela linha de texto na 
area de trabalho para inser^ao ou dele- 
cao (supressao) de caracteres, antes que 
o texto seja iransferido para a memo- 
ria. O texto que jS esiiver na memoria 
— aqueie que € mostrado no painel su- 
perior (^rea de texto) — dever^ ser co- 
piado, uma linha de cada vez, para a 
area de trabalho, antes de ser edttado. 

Novas Iinhas podem ser inseridas em 
qualquer ponto do texto. Isso se conse- 
gue pressionando a tecfa apropriada pa- 
ra o modo "editor" (veja instrufoes de- 
talhadas) e posicionando-se o marcador 
abaixo do ponto onde se quer inserir a 
nova linha. 

Da mesma forma, o texto pode ser re- 
movido. uma linha de cada vez, selecio- 
nando-se o modo editor e posicionan- 
do-se o marcador abaixo da linha a ser 
apagada antes de se pressionar a lecla 
para delegao (supressao). 

Tecias de controle permitem passear 
pelo texto, para a frente ou para tr^s, 
dez Iinhas de cada vez (o Spectrum i 
uma excfigao). Assim, o texto pode ser 
visualizado antes da impressao ou de 
realizar alguma altera^ao. 

Pode-se voltar ao menu do modo de 
edi?ao pressionando-se a tecla de "es- 
cape" designada. £ possivel tambem 
voltar do modo de edifao para o menu 
principal sempre que seja necessdrio al- 
terar algum parSmetro do slstema. 



LiMPEZA DA MEMORIA 



A mem6ria t limpa por interm^dio de 
outra opfao disporu'vei a panir do me- 
nu principal. Mas esta s6 ser^ oferecida 
depots que voce responder sim k pergun- 
ta — "Confirma? (S/N)" — que se se- 
gue £i teclagem de L. Note que essa op- 
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c£lo nao redefine as opcaes de entrada 6020 LET b-VAL tsCl): LET tsu) 

e saida nem os paramelros da impres- --ARQUIUO DO TQPO DO TEXTO- r be 

sora.Sevocgquiserreiniciarludo.pres- JURN 

sione S para retornar ao BASIC e, a sc- ^^^oo rem ^--^^^^^ ^ 

guu-, RUN, 6220 INPUT "Introduza o none <Jo 

Sarauivo-, LIKE nS : IF nS-"' OR 
LEN nS>lO THEN GOTO 6220 

10 POKE 23659.3 \l'^ ^*"^ "^ ^^^* ""= °°''° '° 

20 BORDER T. PAPER 7: INK 9: g^^g ^^^^^ ^^ , ! "Introduza a 

C^^ , ^^ „ Urgura do forniula-rio (1-80)' 

30 DIM 1C8); FOB N-1 TO 8: j. jj, ^^^ qh p^^gO THEN GOT 

READ 1 (n) : NEXT n q g^OO 

40 LET ZS-"* 6510 INPUT AT 0.0 ; "Introduza o 
100 LET ext.200: DIM tS(ext,32 n^Biero de caracterespor linha 

): LET 11 = 32: LET pl-32 {1-- ; {pi 1 i ') ■ : 1 1 : IF IKl OR 11 

105 I.ET as-- >pl THEN GOTO 6510 

,„„„ 6520 LET ll-U + l: FETURN 
110 LET tS(l)=-AHQUtUO DO TOPO ^^^^ ^^^^ 6000,6200.3000.500,90 
DO^TEXTO--: LET^tS|2) ---------- 0.4000,6500.9999 

tS(3)-sS C^ 

120 LET tS{4)-sS: LET t3(5)-"- U 

--: LET tS(6)--ABQUIV0 DO FIM ^J PM^liro ■ pJl^^J liCLEAH 15500 

DO TEXTO" -an i-ltu tY^ f "^nni 

130 LET t-1: LET b-6: LET p-4 ^" BLS-CHB3 (128) ■ TL-1 ■ CP-1 -MW-B 
VV-'l^m^V^WZ'^'' ''•"" ;?™^lo?5E^i6:?U65:OP^IO;L^4 

f^S'pBS A? J "-1- Carre^ar TRING3 (3, 13) :GOSUB 5000 
texto" ;AT 6,8:"2- Grawar texto 
":AT 8,8i"3- Trocar papel":AT 
10.Bi"4- Editar";AT 12.8;-5- L 
impar texto";AT 14.e:'6- Impri 
nir le;(to"iAT 16, B;"?- Alterar \ 

impressora" ;AT 18.e;"8- Saida" \ 

160 PRINT II ; TAB 7 ; " Sel eci one \ 

opcao [ 1-8) " 

170 LET aS-INKEYS: IF aS-"" 
THEN GOTO 170 

180 IF aS<"r' OH aS>''8" THEN 
GOTO 170 

190 LET a-UAL aS : CLS 
200 GOSUB 1 (a) 
210 GOTO 140 

500 CLS : PRINT INVERSE 1 iAT 
4,8;" MENU - EDITOR ' 
510 PRINT AT 8.6;"1- Topo do t 
exta'iAT 10.6:"2- Fim do texto 
" ; AT 1 2 , 6r '3- Proxima 1 inha" ; 
AT 14.6;"4- Sair do menu de ed 
icao' 
520 PRINT AT IB, 7 ; "Selecione o 

pcao ^^ m m ^^^BWr ^^ 

530 LET aS-INKEYS: ^^ M m ^^^HV \ 29 

THEN GOTO 530 ^^> ■ ^^ ^^^^M a ^^ 

540 IF aS<"l" OR aS>'4' THEN 
GOTO 5 30 

550 LET a-yXL aS: CLS 

560 IF a-4 THEN RETURN 

570 IF a-1 THEN LET p-4 

560 IF a-2 THEN LET p-b-2 

590 GOSUB 1000: GOSUB 2000 

600 GOTO 500 

900 PRINT AT 10,6; 'yoce tem ce 

rteza?': PAUSE 

910 IF INKEYS--B' THEN BUN 

9Z0 RETURN 
4000 RETURN 
6000 REM carregar 
6010 INPUT "Introduza o no«' 

arquivo'. LINE nS: LOAD 
A tSO 



50 TX3(0) -STRINGS (32. 195) 

50 TXS(TL) -STRINGS (32, 188) 

70 CLSrPRINT 89. BLS ! "nenu" iBLS i 

"principal" :BL3:PRINT #104. "CO 

AHBEGAB-r PRINT 8136. " (G) RAVAR" : 

PRINT ei68,-(M)UDAR ENTRADA/SAI 

DA" 

80 PRINT §200." (E)DITAR TEXTO": 

PRINT eZ32,"(L)IMPAR MEMORIA" : P 

HINT 6264.' (I)MPBIMIR":PHINT 62 

96."(A)LTERAH IMPRESSORA" : PRINT 

6328," (S)AIH"; 
90 BS-INKEy3:IF BS-'" THEN 90 
100 B-INSTR(-CGMELIAS".BS) :IF B 
=0 THEN 90 

110 ON B GOSUB 4500.4000.5000.1 
000,160. 3000,5500,130 
120 GOTO 50 

130 CLS:PRINT"VOCE TEH CEHTEZA 
CS/N)7" 

140 R9-INKEX3;IF RSO'S" AND R3 
<>"N" THEN 140 
150 IF R3-"S" THEN CLS:END ELSE 

RETURN 
160 CLS:PHINT«8.BLS;"liiiipar" ;BL 
S;"a";BLS; "aenioria" ; BLS: PRINT :P 
HINT'UOCE TEM CERTE2A? (S/N) " 
170 BS-INKEYS:IF BSO'N" AND BS 
<>"S" THEN 170 
180 IF BS-"N" THEN RETURN 
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190 rOR K-l TO TL:TX3(K)-"':NEX 

T;TL-1:CP-1:BETURN 

1000 CLS;PRINT 042 .BLS'nenu'BLS 

"de'BLS"edicao-BL3:PRINT #104," 

tOPO DO TEXT0":PH1NT «168,"CIM 

DO TEXT0":PR1NT «232. "pROXIMA L 

INHA": PRINT «296,"BlENU PRINCIPA 

L- 

1010 BS-INKEyS:IF BS-" THEN 10 

10 

1020 B-INSTRCTFPM" ,B3) :IF B-0 

THEN 1010 

1030 OH B GOTO 1050.1060.1070,1 

080 

1050 CP-1:G0T0 1070 

1060 CP-TL 

1070 GOSUB 2090:GOSUB 1500:GOTO 

1000 
lOeO RETURN 
1500 A5-" " 

1510 P-0:PRINT §384, A3 
1520 CH-PEEK(1408+P) :T3-INKEY$: 
IF TS-"" THEN CH-(CH+64) AND 12 
7:P0KE 1408+P,CH:CH-(CH+64) AND 

127:POKE 1408+P.CH:GOTO 1520 
1530 IF LEN(AS)-65 OB T$"CHBSC1 
3> GOSUB 2000 

1540 IF TS-""" THEN SF-0:GOSUB 
2500:GOTO 1510 

IF P<LEN(A3)-1 AND T3-CHB3 




(10) THEN A3-LEFTS tA3.P)+MIDS(A 

S,P+2):G0T0 1600 ELSE IF T3-CHR 

SIIO) THEN 1520 

1560 IF TS-CHHS(12) THEN RETURN 

1570 IF TS-CHBS(21) THEN P— (LE 

N(AS) -l)"(P-0) :GOTO 1600 

1580 IF T3<>CHRS(e) AND TSOCHR 

3(9) AND ASC{T3K32 THEN 1510 

1590 IF T3<>*" AND TSOCHBSCB) 

AND T3<>CHR3(9) THEN A3-LEFTS (A 

3,P)+TS+MID$(A$,P+1) :P-P+1 

1600 PRINT 0364. A3 

1610 IF T3-CHR3(9) AND P<LEN(A9 

)-l THEN P-P+1 

1620 IF TS-CHHS(8) AND P>0 THEN 

P-P-1 
1630 GOTO 1520 

2000 X-1:IF LEN{A5)>33 THEM X-2 
2010 FOB K-TL+X TO CP+X STEP -1 
:TX3(K)-TXS(K-X) :NEXT 
2020 IF LEN(A3}>33 THEN TX3 (CP) 
-LEFTS (AS, 32) :TX3 (CP+1) -MIDS (AS 
.33.LENfA3)-33) ELSE TX3 (CP) -A3 
2030 FOR K-0 TO X-1 
2040 IF HIGHT3(TX3(CP+K) .1)-" " 

THEN TXS ICP+K) -LEFTS (TX5CCP+K) 
.LEN(TX3(CP+K))-1) :GOTO 2040 
2050 NEXT 

2060 AS-" "rP-O^PRINT €384, AS 
2070 PRINT 8416, " 
2080 TL-TL+X:CP-CP+X 
2090 IF CP<5 THEN 3T-0 ELSE ST- 
CP-5 

2100 PRINT §0,i:FOB K-ST TO ST+ 
9:PRINT TXS(K) ; :IF LENtTX3(K))< 
32 THEN PRINT 

2110 IF K-CP-1 THEN PRINT ->" 
2120 NEXT:PBINT STRINGS (32 , 140) 
2130 PRINT §480,BLS;"niein-:BL3;" 
livre-';32*(501-TL) :BLS:BLS:"cl 
ear-inenu';BLS; :POKE 1534,32:POK 
E 1529,61:RETUBN 
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10 CLS:KEY FF 

20 COLOR 15,4,4:CLEAR IflOOO 

30 DIM TXS C500) ;VS-HTHING3(39,1 

95) 

40 TL = l:CP=l:MU = 80:TU = 60:PL'-66: 

TH-fiOtGP-lOiLlS'CHRSdS) :LF3-ST 

RINGS (3, US) 

50 TXS(0)=STBING3(39.95) :TX3(TL 

)-TXS(0) 

60 CLS:LOCATE 7:PBINT"M E N U 

PHINCIPA L-:LOCATE 9,4: 
PBINT-[Clarreaar":LOCATE 9.6:Pfl 
INT-[G]ravar" 

70 LOCATE 9.8:PRINT"[E]ditar te 
xto":LOCATE 9, 10 rPBINT" [ L Jimpar 

memd ri a" : LOCATE 9, 12 rPBINT" [ I ] 
inpriniir":LOCATE 9, 14: PBINT" t A] 1 
terar impreaaora' : LOCATE 9, 16:P 
BINT"[Slair- 

80 LOCATE 13,20:PBINT"0pcao ?' ; 
90 BS-INKEyS:IF BS=""THEN 90 
100 B=INSTBCCGELIAS-,BS) tIF B- 
THEN 90 

110 ON 8 GOSUB 4500.4000.1000,1 
70.3000,5500,130 
120 GOTO 50 

130 CLS:BLS*"Fiiii de prograina":G 
08UB 220 



140 LOCATE 12.10:PRlNT-ConflrBe 

(S/N) -; 
150 BS=INKEY3;IF RS="- THEN 150 
160 IF R3-"S" THEN CLS:END ELSE 

RETURN 
170 CLSrBLS-"Linpa a mem6ria' -.a 
0SU5 220 
180 LOCATE 12,lO:PaiNT"CDnfirBe 

(S/N) ": 
190 fiS-INKEYS:IF B3-"" THEN 190 
200 IF RSO'S' THEN RETURN 
210 FOR K-l TO TL:TXSCK)-"":NEX 
T:TL-1;CP-1: RETURN 

220 PRINTBLS: PRINT US;BETUfiN 
1000 CLS:BL3="Menu de edigao":G 
OSUB 220:LOCATE 9 . 8 : PRlNT"ITlop 
o do texto" :LOCATE 9,10:PHINT'( 
Finn do texto- :LOCATE 9,12:PHIN 
T-[Plrdxiina 1 inha" : LOCATE 9,14: 
PRINT"[M]enij principal" 
1010 LOCATE 13.17:PRINT"Opcio ? 

1020 BS=INKEY3:IF BS-"' THEN 10 

20 

103O B-IHSTR("TFPM'.B5) :IF B-0 

THEN 1020 

1040 ON B GOTO 1050,1060,1070,1 

OBO 

1050 CP-lrGOTO 1070 

1060 CP=TL 

1070 CLS:GOSUB 2080;GOSUB 1090; 

GOTO 1000 

lOao RETURN 

1090 A$-- " 

1100 P-0:LOCATE 0,16:PRINT AS ; S 

PC (SO) 

1110 LOCATE P+39*(P>38) ,16-(P>3 

8) :PRINTCHRS(219} ; 

1120 T3-INKEYS:IF T3-"" THEN 11 

20 

1130 IF LENfAS)-?? OB T9»CHPS{1 

3) THEN GOSUB 2000 

1140 IF T3-CHH3{5) THEN 3F-0:GO 

SUB 2500:GOTO 1100 

1150 IF P<LEN(AS)-1 AND T3-CHRS 

(4) THEN AS=LEFTS(AS,P)+MID3(AS 

,P+2) :GOTO 1200 

1160 IF T3-CHR3(27) THEN RETURN 

1170 IF TS-CHRS(l) THEN P-0:GOT 

1200 ELSE IF T5-CHBS(19) THEN 

P-LEN(A5)-l:GOTO 1200 
1180 IF TS<>CHH3{2B) AND TSOCH 
R3(29) AND TS<CHHS(32) THEN 111 

1190 IF TSO"" AND TS<>CHBS(2a) 

AND TS<>CHR3(29) THEN AS-LEFTS 
(AS , P) +TS+MID5 (AS, P+1] : P-P+l 
1200 LOCATE , 16 : PHINTA5 : SPC (80 
) 

1210 IF TS=CHBS(28) AND P<LENCA 
S)-l THEN P-P+1 

1220 IF TS=CHRS129) AND P>0 THE 
N P=P-1 

1230 GOTO 1110 

2000 X-1:IF LEN{A3)>40 THEN X-2 
2010 FOR K-TL+X, TO CP+X STEP-1 : 
TX3(K)-TX5(K-X) :NEXT 
2020 IF LEN(AS)>40 THEN TX$<CP) 
-LEFTS (AS. 39) :TX3 (CP+1) -MIDS (AS 
,40.LEN(A3)-40) ELSE TXS(CP)-AS 
2030 FOR K-0 TO X-1 
2040 IF RIGHTS(TX3(CP+K) .1)-' " 



THEN TX5(CP+K) -LEFTS ITX5(CP+K) 
.LEN(TX3[CP+K))-1) :GOT0 2040 
2050 NEXT 

206O AS-" ' ;P=0: LOCATE 0.16;Pai 
NTA$;SPC(80} 
2070 TL-TL+X:CP-CP+X 
20BO IF CP<9 TBEH ST-0 ELSE ST- 

CP-9 

2090 LOCATE O.OtFOR K= ST TO ST 
+9;PB1NTTXS(K) ; SPC (35-LEN ITXS |K 

J) ) 

2100 IF K=CP-1 THEN PBTNTCHBS d 

75) :SPC[36} 

2110 NEXTiPBINTVS 

2120 LOCATE . 23 ■ PH.TNT"Meiii livr 

e - " :39* ISOl-TL] I " '|TAB(26)! 

"<ESC>"MeiiU* i :HETUBK 



aG 



10 SOME 
20 DIM TXS(500) 

30 TL - ItCP - 1:MW = 80 ! TU - 6 
0;PL = 66:TH = 60:GP - 10:LFS = 
CHR5 (13] + CHRS (13) + CHR 
S (13) 

40 LI ' 6;S1 - La;L2 =■ 1;S2 ° L 
2:DS ■= CflRS (4) 

50 FOP Z - 1 TO 40;TXS(0) - TX 
3(0) + '-'zhSS - ASS + "*"■ NEX 
T 

60 GOSUB 50 00 
70 TX3(TL) = TXS(D) 
BO HOME : HTAB 6: PRINT "MEN 

U PHIHCIPAL" 
90 VTAB 5: HTAB 10: PRINT "tCl 
arreaar'- PRINT : HTAB 10: PBIN 
T "[Glravar": PHINT : HTAft 10: 
PRINT "[Mludar E/S' 

100 PHINT : HTAB 10: PRIKT '[E 

iaitar texto": PRINT ; HTAB 10: 

PRINT "[Llimpiar nemoria": PRIN 

T : HTAB 10: PRINT " [ I ]rtipr imlr " 

: PRINT : HTAB 10: PHINT "[A]lt 
erar impreaaora" : PRIMT : HTAB 

10: PRINT "ISJair" 

110 PRINT : PRINT : PRINT TAB 

( 13) 'Opcao =>'; 

120 GET BS: IF BS = CHRS (13) 
THEN 120 

130 BBS = -CGMELIAS":B - 0: EOR 
Z = 1 TO 8: IF BS = MID$ (BBS 

.Z.l) THEN B » Z 

140 NEXT 1 IF B = THEN 120 

150 ON B GOSUB 4500. 4000. 5000, 

1000,210.3 000,55 00,170 

160 GOTO 70 

170 HOME :BL5 = "FIM DE PROGHA 

MA" : GOSUB 250 

180 HTAB 12: WTAB 10: PRINT "C 

ONFIHME tS/N)":: GET RS 

190 IF RS < > "S- THEN RETUB 

N 

200 HOME : END 

210 HOME :BLS = 'LIMPAR A MEMO 

ftlA": GOSUB 250 

220 HTAB 12: VTAB 10: PRINT "C 

OHFIBME (S/N) - ; : GET RS 

Z30 IF R5 < > "3' THEN BETUR 

N 
^„ 240 rofi K = 1 TO TL:TXS(K) = ' 
^ -: NEXT :TL - IrCP - 1: RETURN 



250 INVERSE : PRINT BLS i : PRTN 

T SPCf 40 - L^ {BLSJl: NORMA 

L : RETURN 

1000 HOME : PRINT TAB ( 12) 'ME 

NU DE EDICAO" 

1010 UTAB 9: HTAB 10: PRINT "I 

TIOPO DO TEXTO' 

1020 PHINT : PRINT TAB ( 10)''[ 

F|IM DO TEXTO' 

1030 PHINT : PHINT TAB ( 10) '[ 

PJHOXIMA LINHA" 

1040 PRINT : PRINT TAB ( 10) "[ 

MIENU PHTMClPAL" 

1050 PRINT : PRINT : PRINT TA 

B( 13)"0pcao ->"; 

1060 GET BS: IF B3 ■ CHRS (13 

) THEN 1060 

1070 BBS - "TrPM^tB - 0: FOB Z 

- 1 TO 4: IF B3 - MlDS (BBS.Z, 

1) THEN B - 2 

1080 NEXT : IF B - THEN 1060 

1090 ON B GOTO 1110,1120.1130. 

1140 

1110 CP - 1 : GOTO 1130 

1120 CP - TL 

1130 HOME : GOSUB 209O: GOSUB 

1500: GOTO 1000 

1140 RETURN 

1500 AS = " ' 

1510 P - 1: HTAB 1: UTAB 20: CA 

LL - 958: PRINT MID5 (AS. 2)! 

1520 HTAB P: UTAB 20 + (P > 40 

) : GET T3 

1530 IF LEN [AS) = 62 OB T5 = 

CHBS (13) THEN GOSUB 2000 
1540 IF TS - CHRS £5] THEN G 
OSUB 2500: GOTO 1510 
1550 IF TS - CHBS C27) THEN 
RETURN 

1560 IF TS - CHRS CD THEM P 
= 1: GOTO 1620 
1570 IF T5 - CHBS C19) THEN P 

- LEN (AS) - 1- GOTO 1620 
1580 IF TS - CHRS (4) AND (P 
<: LEN (AS) - 1} THEN AS - LEF 
TS <AS,P) -1- MIDS (AS.P + 2) : G 
OTO 1620 

1590 IF TS " CHRS (4) THEN 15 
20 

1600 IF TS < > CHRS (B) AND 
T3 < > CHRS (21) AND TS < CH 
R3 (32) THEN 1^20 
1610 IF TS < > CHRS (8) AND 
TS < > CHRS (21) THEN AS - L 
EFTS (A$.P> + TS + HIDS (AS,P 
+ 1> :P - P + 1 

1620 HTAB 1: VTAB 20: CALL - 
958: PHINT MIDS (AS. 2) i 
1630 IF TS = CHRS (S) AND (P 
> I) THEN P - P - 1 
1640 IF TS - CHR5 (21) AND {P 

< LEM (AS) - 1) THEN P > P + 
1 

1650 GOTO 1520 

2000 X - 1:AS - MIDS (AS, 2): I 
F LEN CAS) > 41 THEN X - 2 
7010 FOR K-- TL + X TO CP i"- X 
STEP - 1;TXS(KJ - TXS(K " X) : 
NEXT 

2020 IF LEN CAS) > 41 THEN TX 
S(CP) - LEFTS (AS,40) :TXS{CP + 

1) - MIDS (AS. 41): GOTO 2040 




Quais sSo as principals dlfeien^as 
entre o editor de textos de INPUT q 
OS editorss vsndidos nas lojas eapecia- 
llzadas? 

A principal difererija consiste em 
que noESO editor 6 programado em BA- 
SIC, e OS editures comerciais, em c6- 
digo de m^quina, Tais edilores atuam 
sobre uma "janela de texto", ol seja, 
permitem que se edite qualquer seg- 
mento de texto, acrescentando OU eli- 
minando palavras, frases e parSgrafos, 
por meio de simples movimentos do 
cursor na tela. 

Em cofitraste com isso, nosso pro- 
grama edita linha por Nnha do texto, 
exigindo que as linhas sejam escritas 
na parte inferior da tela e transferidas 
para o campo superior. 

Esse modo de organizar o texto, jun- 
to com a lentidao ineranie S linguagem 
BASIC, * a causa de outra dilerenga 
fundamental: o tempo de gravaqao e 
leitura dos textos em editores comer- 
ciais 6 muito menor, 

Outro atribulo dos editores comer- 
ciais 6 3 hifena^ao automStica das pa- 
lavras. Somada ao alinhamento ^ direi- 
ta, essa caracterfstica d^ ao texto im- 
presso um aspecto mais natural e pro- 
fissional. Nao hS nenhum motivo, con- 
tudo. para que uma tungao de hifena- 
?cio nao possa ser inclulda em nosso 
editor. 



Z03O TXS(CP) - AS: IF AS = ' " 
THEN 2070 

2040 FOB K = TO X - 1 
2050 IF RIGHTS (TXS(CP + K).l 
) - " " THEN TXS (CP -t- K) = LEF 
TS CTXS(CP + K) . LEN (TXS(CP + 
K! ) - 1) : GOTO 2050 
2060 NEXT 

2070 AS = " ":P '^ 1: HTAB 1: V 
TAB 20: CALL - 958: PRINT MID 
$ (AS. 2) : 

2080 TL = TL + X :CP = CP + X 
2D90 IF CP < 9 THEN ST = 0: GO 
TO 2110 

2100 ST = CP - 9 
2110 HTAB 1: UTAB 1: FOR K - S 
T TO ST + 13: PRINT TXS (K) : ! IF 
LEN <TXStK)) < 40 THEN CALL 

- S6S: PRINT 

2120 IF K = CP - 1 THEN CALL 

- 868: PRINT '">" 

2130 NEXT : PRINT ASS: ; PRINT 
"memoria l»vre=";40 * (501 - TL 

) 

2140 RETURN 
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LINHA FABRICANTE 


MOOELO ■" FABfllCANTE 


MODELO 


PAIS 


TB.-^ 






App1ell4 Applelrcnica 


Thoi 2010 


Appletronica 


ThorMIO 


Brasil 


Apple 11+ ■ 




ApplelU CCE 


MC-400a Exalo 


Apply 


Apply 300 


Brasil 


- SjnclalrZX-ei ■ 




Appleii+ CPA 


Absolulus 


CCE 


MC'4000 ExatO 


Brasil 


Ji^plell+ -M 




ApplBll+ CPA 


Polaris 


CPA 


Absolut us 


Brasil 


Apptall4 ■ 




Applell+ DIsilus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple ll-t- 9 




Appiell+ Dismac 


D-aioo 


Codlmex 


cs-esoa 


Brash 


TRS-Color " 




Applell* ENIAC 


ENIAC II "- 


Digitus 


DGT'IOO 


Brasil 


TBS-80 Mod.lll 




Applell+ Fcanktin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-eO Mod.lll 




Apploll* Houslon 


Houston AP 


Digitus 


DGTAP 


BraBll 


Apple ll-t- 




ApplAli-)- Magnei: 


DM 11 


Dismac 


D-eooo 


Brasil 


TRS-60Mod. 1 




Applsll+ Maillranlca 


MX' 2001 


Dismac 


D-SDOKS 


Brasil 


TRS-aOMod.l 


Kl 


Applall+ Maxilronica 


MXW 


Dismac 


D-eioo 


Brasil 


Apple 11 + 




Apple II -•- Maxiironlca 


MX'64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 




Z Applall-)- MsxMronlca 


Maxitronlcl 


ENIAC 


ENIAC II 


Bra ell 


Apple 11 + 




^ Applell* Microcralt 


CralllPlus 


Engebras 


AS'1000 


Bratll 


Sinclair ZX-81 




1 
u Applell-f Milmar 


Apple II Plus 


Filcres 


NEZSOOO 


Brasil 


Sinclair ZX-ai 




■ Apple 11+ Milmar 


Apple Master 


Pianklin 


Franklin 


USA 


Apple 114- 


1 1 


Applell+ Milmar 


Apple Senior 


Gradlente 


Expert GPC1 


Brasil 


MSX 


) 


Apple II + Omega 


MC-4D0 


Houslon 


Houston AP 


Brasil 


Apple 11+ 


A 


Applell+ Polymax 


Maxxl 


Kemltron 


NalaSOO 


Brasil 


TRS-ao Mod.lll 


m 


Applell+ Polymax 


Poly Plus 


LNW 


LNW'SD 


USA 


TRS-80 Mod. 1 


■ 


Apple 11+ Spectrum 


MICFoengenliol 


LZ 


Color 64 


Brasil 


TRS-Color 


■ 


Applell+ Spectrum 


Speclruin ed 


MagneK 


DM II 


Srasll 


Apple It -t 


w 


Apple ll-t- Suporte 


Venus II 


Mail Iron lea 


Mx■saa^ 


Brasil 


Apple 11+ 




Apple II 4- Sycomlg 


SICI 


MaxltronlcB 


MX-48 


Brasil 


Apple II + 




Applell+ Unltron 


APII 


Maxltronica 


MX-e4 


Brssil 


Apple 11+ 




Apple 11+ Victor do Brasil 


ElppallPlus 


Ma xl Ironies 


Msxltronlc 1 


Brasil 


Apple II + 




Apple 11 + Victor do Brsetl 


Elppa Jr. 


Microcralt 


CrattllPlus 


Brasil 


Apple II -K 




Apple lie Microcraft 


era II He 


Microcralt 


Catt ll« 


Braall 


Apple He 




Applelle Mlcrodigilal 


TK-3000lle 


Microdlgltal 


TK-30Ca lie 


Braiil 


Apple He 




Apple lie Spectrum 


MIcroBftgentio II 


Microdlgltal 


TK-aac 


Brasil 


Sinclair ZX-81 




Msx Gradiente 


Eipert GPC-1 


Microdlgltal 


TK-83 


Brasil 


Sinclair ZX-81 




MSX Stiarp 


HolbllHB'BOOO 


Microdlgltal 


TK-B5 


Brasil 


Sinclair ZX-81 




Sinclair Spectrum Mlcrodlgital 


TK-90X 


Microdlgltal 


TK-90X 


Brasil 


SinctalrSpectrum 




SinctalrSpectrum Tlmei 


Timex 2OD0 


Microdlgltal 


TKS-flOO 


Brasil 


TRS-Color 




Sincli>lrZX.ei Apply 


Apply 300 


Milmar 


Apple 11 Plus 


Braell 


Apple 11 + 




Sinclair ZX-S1 EngebraE 


AS-1001} 


Milmar 


Apple Ma slef 


Brasil 


Apple 11 + 




Sinclair ZX-81 Filcres 


NEZ'SOOO 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 




Sinclair ZX-ai Mlcrodigilal 


TK-82C 


Multlx 


MX'Compacto 


Brasil 


THS'80Mod.lV 




Sinclair ZX-S1 Microdlgltal 


TK-83 


Omega 


MC'400 


Brasil 


Apple 11 + 




Sinclair ZX-ai Microdlgltal 


TK-B5 


Poly man 


Maxxl 


Braall 


Apple 11 -t- 




SinctslrZX'SI Prologlca 


CP-200 


Polymax 


Poly Plus 


Brasil 


Apple 11 + 






Sinclair ZXm Ritas 


Ringo R-470 


Prologlca 


CP-ZOD 


Brasil 


Sinclair ZX-B1 






1 


Sinclair ZXai Timex 


Timex 1000 


Prologlca 


CP.30D 


Brasil 


TRS-80 Mod.lM 




1 


Sinclair ZX-B1 Tlmei 


Timex 1500 


Prologlca 


CPMO 


Brasil 


TRSColor 




1 


TRS-aOMod-l DIsmae 


D.BOOO 


Prologlca 


CP500 


Biaslt 


TRS-SO Mod.l 11 






TRS-SOMod-l Dlsmac 


D'B0D1J2 


Ritas 


RlngoR'470 


Brasil 


Sinclair ZX'Sl 




1 


TRS-80Mod.l LNW 


LMW-BO 


^arp 


HotbitHB'8000 


BrsstI 


MSX 






TRS-ao Mod. 1 Video Genie 


Video GenlQl 


Spectrum 


MIcrosngenno 1 


Brasil 


Apple II + 






TRS-SO Mod.111 Digitus 


OGT-100 


Spectrum 


Mlcroengenho II 


Brasil 


Apple He 






TRS-eO ModJII Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple H + 




TRS-SD MDd.lll Kemltron 


Nb|bSDO 


Suporte 


Venus II 


Stasll 


Apple 11 + 






TRS-80 Mod.lll ProJoglca 


CP'300 


Sycomlg 


SICI 


Brasil 


Apple 11 + 






TRS-80 Mod.lll Prologlca 


CP-SOO 


Sysdata 


Sysdata III 


Brasil 


TRS-SD Mod.lll 






TRS SO Mod-lll Sysdata 


Sysdata 111 


Sysdata 


Sysdata IV 


Srasll 


TRS'80 Mod.lV 




I 


TnS-80MDd.lll Sysdata 


Sysdata Jr. 


Sysdila 


Sysdets Jt. 


Brasil 


TRS-80 Mod.lll 


s \ 


TRS'SOMDdJV Mullix 


MX-Coffl pacts 


Timex 


Timai 1000 


USA 


Sinclair ZX 81 


TRS-SO Mod.lV Sysdata 


Sysdata tV 


Timex 


Timex 1500 


USA 


Sinclair ZX-81 


1 


TFIS'Color Codlmex 


cs-65as 


Timex 


Timex 2000 


USA 


SinctalrSpectrum 




THS- Color Dyne com 


MX-ie(H 


U nitron 


API! 


Brasil 


Apple 11 + 




TRS'Color LZ 


Color U 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 




TRS-Color Microdlgltal 


TKS-SOO 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple II + 




' 


THS' Color Prologlca 

. 1 


CP-400 


Video Oenie 


Video Genie 1 


USA 


TRS-80 Mod. 1 






1 
1 1 


INPUT foi especlaimente projetado para 


^ 


-J 


rS" 1 


\Hi 




1) 




H_H TRS-BD L 


MaZJ TK20(W ' 


AM MSX 






linhas existenles no metcado. 

Os blocos de textos e listageis de programas aplicados ^^^ 




Quando o emblema tor seguMo dc unta 
/ faiia, etttSo tanto o tetlo coma os 


1 


■J 
1 


apenas a deteiminadas linhas de mtcms podem ser 
identificados por meio dos s^uintes sIiiiddIos: 


^^■fl Spednini 


l_| TRS-CnIar L 


tm programas que u vxiKm assam a m 
SKJ Aprlifl espKificas para a rioRa intTcada. 























NOVOS LANCAMENTOS, 
^flh NOVOS SUCESSOS. 




I 



A FRATERNIDADE 
DA PEDRA 

David Morrell 

Umgrupo secrclo, sob 
dire^ao de um padre 
armado, passaaagir 
contra o terrorismo, 
Ma&. ser^ que violencia 
se com bale com mais 
violencia? Eis o dilema 
de Drew, agente da Lei 
envolvido com fafos e 
figuras do mundo real, 
numlivrosurpreendente 
docriadordeRambo, 



AVENTUREmOS 
EMILIONARIOS 

Clark Howard 

No romance do Texas, 
a saga da descoberta de 
umpofo de petroleoe 
o drama de um casal que 
herda umlotede terra 
aparentemente sem valor 
e enfrenta com coragem 
OS podcrosos do lugar. 
at^ veneer, Uma vitoria 
antes de tudo moral, 
numa historia forte e 
envolvenfe. com realistas 
cenas de amor. 



CANADA SEM FIM 

Bryan Forbes 

Uma brilhante historiade 
espionagern envoi vendo 
a KGB. Porque malar 
uma ex-espia que ]k tinha 
sido de&mascarada e 
torturada tempos atras? 
Um agente ingles, sen 
anligoamante, enfrenla 
um desafio: descobrir 
por que ela f oi morta. . . 
e por que agora! 



PODER 
Howard Fast 

Umlider sindicalcom 
a voliipia do podei;, 
alutapelosdireitos 
dos trabalhadores, 
hos EsfadosUnidos, 
esua manipula^ao 
porcorruptos 
eoporlunistas; o jogo 
dasambi^oespoliticas. 
Admiravelmente escrito, 
um romance atualissimo. 



UPERSEXO 

Alexandra Penney 

Se nao for o primeiro, 
estevaisero ultimo 
e definitivo guia para 
o prazer que o leitor 
podera seguir: um livro 
que derruba mitos, faz 
sugesloes provocantese 
propoe tecnicas ou&adas 
parasechegarao 
supersexo, uma rela^ao 
intensa e especial ertre 
oscasais, que nao 
excluj o romantismo. 




Nao perca tambem: A MIS5AO, de Robert Bolt, o livro do iilme. 




EDITORA BEST SELLER 




